Переведите с паскаля на python var k, max, countA: integer;
c: char;
f: text;
begin
assign(f,'C:\24.txt');
reset(f);
k := 0;
max := 0;
countA := 0;
while not Eof(f) do begin
read(f, c);
if (c = 'E') then begin
if countA > 2 then begin
if k > max then max := k;
end;
k := 0;
countA := 0;
end
else begin
if c = 'A' then countA := countA + 1;
k := k + 1;
end;
end;
if k > max then
max := k;
writeln(max);
end.

218

380

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

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

SuperSem2003

Информатика

4,5(35 оценок)

Program z1; var a: real; begin writeln('который час? '); read(a); if (a> =6) and (a< 12) then writeln('доброе утро') else begin if (a> 11) and (a< =16) then writeln('добрый день') else begin if (a> 16) and (a< =22) then writeln('добрый вечер') else begin if (a> 22) or (a< 6) then writeln('спойкойной ночи') end; end; end; end.