Регистрация
nastafil30
07.06.2021 18:01
Информатика
Есть ответ 👍

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

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

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

276
380
Посмотреть ответы 1

Ответы на вопрос:

vbfbk123
vbfbk123
4,6(98 оценок)
По сути можешь вместо * вставить любое количество любых символов, а вместо ? - один любой символ. esse.docx vsem.docx natt.doc

Популярно: Информатика