Лучшие помощники
6 декабря 2022 19:46
730

Запишите на языке паскаль программу которая для произвольного натурального двузначного числа определяетa) сумму и произведение его цифр
б) число,образованное перестановкой цифр исходного числа

2 ответа
Посмотреть ответы
Var
n,d,e:integer;
begin
Write('Введите двухзначное число: '); Read(n);
d:=n div 10; e:=n mod 10;
Writeln('Сумма цифр равна ',d+e,', произведение ',d*e);
Writeln('Число, полученное перестановкой цифр ',10*e+d)
end.

Тестовое решение:
Введите двухзначное число: 29
Сумма цифр равна 11, произведение 18
Число, полученное перестановкой цифр 92

0
·
Хороший ответ
8 декабря 2022 19:46
А)
Program sum_pr;
Var
sum,pr,a1,a2,a : integer;
BEGIN
read(a);
a1:=a div 10;
a2:=a mod 10;
sum:=a1+a2;
pr:=a1*a2;
write(sum,pr);
END.
б)
Program per;
Var
per,a1,a2,a : integer;
BEGIN
read(a);
a1:=a div 10;
a2:=a mod 10;
per:=a2*10+a1;
write(per);
END.
0
8 декабря 2022 19:46
Остались вопросы?
Найти нужный