Напишіть програму, яка роздрукує всі натуральні числа, кратні 5. Від 195 до 6785. Використати цикл for

Відповідь:

Пояснення:

program PrintMultiplesOfFive;

var

 i: integer; // змінна для зберігання числа

begin

 // Використовуємо цикл for з початковим значенням 195, кінцевим значенням 6785

 // та кроком 1, щоб перебрати всі числа в цьому діапазоні

 for i := 195 to 6785 do

 begin

   // Перевіряємо, чи число кратне 5 за допомогою операції модуля

   if i mod 5 = 0 then

     writeln(i); // Виводимо число, якщо воно кратне 5

 end;

end.