Предмет: Информатика, автор: glockpolk777

Напишите программу подсчета суммы и произведения цифр для данного целого двузначного числа. Используйте пригласительную строку. Используйте процедуру очистки экрана (для ТП). Установите формат вывода данных:6 позиций для всего числа, 2 позиции - для доробной части.
Дополнительно: напишите программу, которая меняет местами цифры в целом двузначном числе. Например:
Входные данные: 35
Результат:53

Burxon21: Borland Pascal

Burxon21: Pascal ABC

Burxon21: нет это Турбо Паскал

Burxon21: да я знаю

Burxon21: первая стандартная версия паскаля

Ответы

Автор ответа: Burxon21

1)
uses crt;
var chislo,summa,proiz:integer;
begin
clrscr;
Readln(chislo);
summa:=(chislo div 10) + (chislo mod 10);
proiz:=(chislo div 10) * (chislo mod 10);
Writeln('сумма:',summa:6:2);
Writeln('произведения :',proiz:6:2);
end.

2)
var chislo:integer;
begin
Readln(chislo);
chislo:=(chislo div 10)+(chislo mod 10)*10;
Writeln(chislo);
end.

Burxon21: da

glockpolk777: Спасибо:)