Предмет: Информатика,
автор: JleCHoy3BEPb
Запишите на языке Паскаль программу, которая для произвольного двухзначного числа определяет :
а) сумму и произведение его цифр;
б)число, образованное перестановкой цифр исходного числа
Ответы
Автор ответа:
1
var a,b,a1,a2:integer;
begin
readln(a);
b:=abs(a);
a1:=b div 10;
a2:=b mod 10;
writeln('S = ',a1+a2,' P = ',a1*a2);
b:=a2*10+a1;
if a>0 then writeln(b) else writeln(-b);
end.
Пример:
25
S = 7 P = 10
52
begin
readln(a);
b:=abs(a);
a1:=b div 10;
a2:=b mod 10;
writeln('S = ',a1+a2,' P = ',a1*a2);
b:=a2*10+a1;
if a>0 then writeln(b) else writeln(-b);
end.
Пример:
25
S = 7 P = 10
52
Похожие вопросы
Предмет: Математика,
автор: Dhgdffdudjghduyr
Предмет: Геометрия,
автор: Alisa6895
Предмет: Математика,
автор: irir50789
Предмет: Математика,
автор: АняСаша