Регистрация
umidmadrimow580
31.05.2023 21:37
Информатика
Есть ответ 👍

program task;
var
n, i, power, copy: integer;
flag: boolean;

begin
readln( n );
copy := n;
i := 2;
flag := false;
while copy <> 1 do begin
while copy mod i <> 0 do
i := i + 1;
power := 0;
while ( copy mod i = 0 ) do begin
copy := copy div i;
power := power + 1;
end;
if flag then write( '*' )
else flag := true;
if power > 1 then
write( i, '^', power )
else
write( i );
i := i + 1;
end;
writeln;
end.
переведите на питон

240
266
Посмотреть ответы 1

Ответы на вопрос:

Maximp190302
Maximp190302
4,7(43 оценок)
Var a,s: integer; begin repeat write('vvedite triohznacinoe cislo: '); readln(a); until(a> 99)and(a< 1000); s: =a div 100+a div 10 mod 10+a mod 10;   if s mod 2=0 then writeln('summa zifr ciotnaia') else writeln('summa zifr neciotnaia '); readln; end.

Популярно: Информатика