70 баллов за задание
много баллов!
Переведите программу из языка Паскаль в язык Питон!
var del, count, min, i: longint;
begin
count := 0;
del := 0;
min := 22001;
for i := 11000 to 22000 do begin
if i mod 11 = 0 then del := del + 1;
if i mod 13 = 0 then del := del + 1;
if i mod 17 = 0 then del := del + 1;
if i mod 19 = 0 then del := del + 1;
if del = 2 then begin
count := count + 1;
if min > i then min := i;
end;
del := 0;
end;
writeln(count, min);
end.
много баллов!
Переведите программу из языка Паскаль в язык Питон!
var del, count, min, i: longint;
begin
count := 0;
del := 0;
min := 22001;
for i := 11000 to 22000 do begin
if i mod 11 = 0 then del := del + 1;
if i mod 13 = 0 then del := del + 1;
if i mod 17 = 0 then del := del + 1;
if i mod 19 = 0 then del := del + 1;
if del = 2 then begin
count := count + 1;
if min > i then min := i;
end;
del := 0;
end;
writeln(count, min);
end.
Ответ
5
(2 оценки)
1
triolana
3 года назад
Светило науки - 562297 ответов - 388270 раз оказано помощи
count = 0
delim = 0
min = 22001
for i in range(11000,22000):
if (i % 11 == 0): delim += 1
if (i % 13 == 0): delim += 1
if (i % 17 == 0): delim += 1
if (i % 19 == 0): delim += 1
if (delim == 2):
count += 1
if (min > i): min = i
delim = 0
print(count, min)
делает кто?