ВЫВЕСТИ НА ЭКРАН ВСЕ КРАТНЫЙ 17 ЧИСЛА ОТ 1 ДО 100, ИСПОЛЬЗУЯ 3 ВАРИАНТА ЦИКЛА И ОДНУ ПЕРЕМЕННУЮ i ....

Вот три варианта кода на Паскале для вывода кратных 17 чисел от 1 до 100 с использованием одной переменной i:

Вариант 1: Цикл for

program Kratnye17;
var
  i: integer;
begin
  for i := 17 to 100 do
    if i mod 17 = 0 then
      writeln(i);
end.

Вариант 2: Цикл while

program Kratnye17;
var
  i: integer;
begin
  i := 17;
  while i  100;
end.

Каждый из представленных вариантов выводит кратные 17 числа от 1 до 100.

Для решения этой задачи в языке программирования Pascal можно использовать три вида циклов: цикл с параметром (for), цикл с предусловием (while) и цикл с постусловием (repeat.until). Мы будем использовать одну переменную i для итерации. Рассмотрим решение для каждого из циклов.

Условие задачи:

Найти и вывести на экран все числа от 1 до 100, которые кратны 17. Кратность числа 17 можно проверить с помощью операции взятия остатка (mod): число кратно 17, если остаток от его деления на 17 равен 0.

1. Использование цикла for

Цикл for удобен, если диапазон значений известен заранее. В данном случае мы можем перебрать все числа от 1 до 100 и проверить, кратно ли текущее число 17.

Код:

program MultiplesOf17For;
var
  i: integer;
begin
  writeln('Кратные 17 числа от 1 до 100 (цикл for):');
  for i := 1 to 100 do
  begin
    if i mod 17 = 0 then
      writeln(i);
  end;
end.

Объяснение:

1. Цикл for i := 1 to 100 перебирает все числа от 1 до 100.
2. На каждой итерации проверяется условие if i mod 17 = 0. Если условие выполняется, то число i кратно 17, и оно выводится на экран с помощью writeln(i).

Результат вывода:
На экран будут выведены числа: 17, 34, 51, 68, 85.

2. Использование цикла while

Цикл while используется, если заранее неизвестно, сколько итераций потребуется, но известно условие завершения. В данном случае мы начнем с числа 1 и будем идти до 100, проверяя каждое число на кратность 17.

Код:

program MultiplesOf17While;
var
  i: integer;
begin
  writeln('Кратные 17 числа от 1 до 100 (цикл while):');
  i := 1;  // Начальное значение
  while i  100`.

Результат вывода:  
На экран будут выведены числа: **17, 34, 51, 68, 85**.

---

### Вывод
В данной задаче мы рассмотрели три варианта циклов для вывода чисел, кратных 17, от 1 до 100:
1. С использованием цикла `for` — наиболее простое и компактное решение.
2. С использованием цикла `while` — подходит, если нужно заранее проверять условие.
3. С использованием цикла `repeat.until` — удобен, если тело цикла должно быть выполнено хотя бы один раз.

Во всех трех случаях результат одинаков: числа **17, 34, 51, 68, 85** будут выведены на экран. Выбор цикла зависит от предпочтений программиста и требований задачи.

В языке Pascal для вывода всех кратных 17 чисел от 1 до 100 можно использовать различные виды циклов: for, while и repeat. Рассмотрим каждый из этих вариантов с использованием одной переменной i.

Вариант 1: Цикл for

В первом варианте мы можем использовать цикл for, который будет перебором значений переменной i от 1 до 100. Внутри цикла будет проверка, является ли i кратным 17.

program MultiplesOf17;
var
  i: Integer;
begin
  for i := 1 to 100 do
  begin
    if (i mod 17 = 0) then
      WriteLn(i);
  end;
end.

Вариант 2: Цикл while

Во втором варианте мы можем использовать цикл while, который будет выполняться до тех пор, пока i не превысит 100. Начальное значение i можно установить равным 1. Внутри цикла мы также должны проверять кратность и увеличивать i.

program MultiplesOf17;
var
  i: Integer;
begin
  i := 1;
  while i  100;
end.

Объяснение

1. Цикл for: Этот цикл удобен, когда нам известен диапазон значений. Мы просто перебираем все числа от 1 до 100 и проверяем каждое на кратность 17.

2. Цикл while: Данный цикл позволяет более гибко управлять условием продолжения. Мы можем начать с произвольного значения и продолжать, пока не достигнем 100.

3. Цикл repeat: Этот цикл гарантирует, что тело цикла выполнится хотя бы один раз, что может быть полезно, если мы хотим выполнить инициализацию или проверить условия, которые могут измениться в процессе выполнения.

Все три варианта дают одинаковый результат — вывод кратных 17 чисел от 1 до 100. Выбор конкретного варианта зависит от предпочтений программиста и конкретной задачи.