Напишите программу подсчета суммы и произведения цифр для данного целого двузначного числа. Используйте пригласительную строку.
Используйте процедуру очистки экрана (для ТП). Установите формат вывода данных:6 позиций для всего числа, 2 позиции - для доробной части. Дополнительно: напишите программу, которая меняет местами цифры в целом двузначном числе. Например: Входные данные: 35 Результат:53
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('<span>сумма:',summa:6:2); </span>Writeln('<span>произведения </span>:',proiz:6:2); end.
2) var chislo:integer; begin Readln(chislo); chislo:=(chislo div 10)+(chislo mod 10)*10; Writeln(chislo); end.