Переведите код с Pascal на Python ( ) var
p,s:real;
k:integer;
begin
clrscr;
write('p=');
read(p);
s:=1000;
k:=0;
while s < 1100 do
begin
s:=s+p;
inc(k);
end;
writeln;
if (p > 0)and(p < 25) then
begin
writeln('Через ', k ,' месяцев');
writeln('Результат ', s:2:2);
end
else
writeln('0 readkey;
end.
var s,k,a:integer;
Begin
s:=0;
k:=0;
Readln(a);
while a<>0 do
Begin
if a mod 8=0 then
Begin
s:=s+a;
k:=k+1;
end;
Readln(a);
end;
if k>0 then Writeln(s/k)
else Writeln('NO')
end.
Пример:
43
61
16
95
24
0
20