bondiserj
27.12.2020 14:38

за задание много !

Переведите программу из языка Паскаль в язык Питон!

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.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
jora2003123
14.06.2021 06:58

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)

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота