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

Дополнительно: напишите программу, которая меняет местами цифры в целом двузначном числе. Например:

Входные данные: 35

Результат: 53

Question

Информатика

Анатолий

5 июня, 11:57

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

Дополнительно: напишите программу, которая меняет местами цифры в целом двузначном числе. Например:

Входные данные: 35

Результат: 53

+4

Ответы (1)

Знаете ответ на вопрос?

Ираклий · 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.