Question

перенести программу из паскаля в питон

var

a, success, count, N, i: integer;

begin

count:= 0;

readln(N);

for i := 1 to N do begin

readln(a);

if a < 5 then count := count + 1;

if a = 10 then success := 1;

end;

writeln(count);

if success = 1 then writeln('YES')

else writeln('NO');

end.

Answer 1

Ответ:

Задание очень странное в плане работы программы, но, то, что вы хотели сделано: