Запишите на языке Паскаль программу,которая для произвольного двузначного числа определяет:
а) сумму и произведение его цифр;
б) число,образованное перестановкой цифр исходного числа.
vara,b,c,d,e:integer;
beginwriteln('vvedity chislo ot 11 do 99 ili vvedity 0 dlya generacii sluchainogo chisla');readln(a);
if a=0 thenbegin
randomize;a:=random(89) + 10end;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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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.