Question

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

Answer 1

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.