Дан программный код: import math a=int(input() if а2=1: a=math.pow(a, 2) elif a

Question

Информатика: Дан программный код: import math a=int(input() if а2=1: a=math.pow(a, 2) elif a

smailemail · Accepted Answer

//Pascal ABC.NET 3.2 сборка 1318 Var   f:text;   n:integer;   s:string;     procedure VoTeRaz(f:text;n:integer;s:string);   begin     writeln( Было: ); assign(f, Input.txt ); reset(f); while not(Eof(f)) do   begin     read(f,n);     write(n, );     if n 7 then n:=n*(n div 7);     s:=s+inttostr(n)+ ;   end; delete(s,length(s),1); close(f); assign(f, Input.txt ); rewrite(f); write(f,s); close(f); writeln; writeln( Стало: ); write(s); writeln; end; function VoTeDva(f:text;n:integer;s:string):integer;...

MOGZ ответил