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