Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Var i,k: integer;
begin
k:=0; i:=24;
repeat
if (i mod 5)0 then inc(k);
i:=i+24;
until i>1000;
writeln(k);
end.
33