ВЫВЕСТИ НА ЭКРАН ВСЕ КРАТНЫЙ 17 ЧИСЛА ОТ 1 ДО 100, ИСПОЛЬЗУЯ 3 ВАРИАНТА ЦИКЛА И ОДНУ ПЕРЕМЕННУЮ i . ( в паскале)
Var i:integer;
begin
writeln(Цикл for:);
for i:=1 to 100 do if i mod 17 = 0 then write(i:3);
writeln();
writeln(Цикл while:);
i:=1;
while i<=100 do begin
if i mod 17 = 0 then write(i:3);
i:=i+1;
end;
i:=1;
writeln();
writeln(Цикл repeat:);
repeat begin
if i mod 17 = 0 then write(i:3);
i:=i+1;
end;
until i>=100;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
