ВЫВЕСТИ НА ЭКРАН ВСЕ КРАТНЫЙ 17 ЧИСЛА ОТ 1 ДО 100, ИСПОЛЬЗУЯ 3 ВАРИАНТА ЦИКЛА И ОДНУ ПЕРЕМЕННУЮ i . ( в паскале)

Предыдущий
вопрос Следующий
вопрос

program MultipleOf17;

var
i: integer;

begin
// Используем цикл for
writeln('Числа кратные 17 (используя цикл for):');
for i := 1 to 100 do
begin
if i mod 17 = 0 then
writeln(i);
end;

// Используем цикл while
i := 1;
writeln('Числа кратные 17 (используя цикл while):');
while i <= 100 do
begin
if i mod 17 = 0 then
writeln(i);
i := i + 1;
end;

// Используем цикл repeat-until
i := 1;
writeln('Числа кратные 17 (используя цикл repeat-until):');
repeat
if i mod 17 = 0 then
writeln(i);
i := i + 1;
until i > 100;
end.