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.

Answer 2

Какую именно программу Вы хотите написать? Вам нужна программа на каком-то конкретном языке программирования?