Запишите на языке Паскаль программу,которая для произвольного двузначного числа определяет:
а) сумму и произведение его цифр;
б) число,образованное перестановкой цифр исходного числа.
var
a,b,c,d,e:integer;
begin
writeln(vvedity chislo ot 11 do 99 ili vvedity 0 dlya generacii sluchainogo chisla);
readln(a);
if a=0 then
begin
randomize;
a:=random(89) + 10
end;
b:=a div 10;
c:=a mod 10;
d:=b+c;
e:=b*c;
writeln(chislo=,a);
writeln(summa cifr chisla ,a,=,d);
writeln (proizvedenie cifr chisla ,a,=,e);
writeln(chislo obrazovanoe perestanovkoi cifr chisla ,a,=,c,b);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
