переведите с паскаля на питон.
k := 0;
for i:=1 to N do begin
if (a[i] mod 5 = 0) and (a[i] < 100)
then k := k + 1;
end;
for i:=1 to N do begin
if (a[i] mod 5 = 0) and (a[i] < 100)
then a[i] := k;
writeln(a[i])
end;

juliati88tan    1   15.04.2020 16:25    0