Задача 7 урок 10.1

Primary tabs

Submitted by Gurgen on Tue, 09/21/2021 - 23:57

http://fkn.ktu10.com/?q=node/8612

Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

program task7_lesson11;
var
   i:integer;
begin
     for i:=1 to 100 do
         if ((i mod 7) = 0) then
            writeln(i);
     readln();
end.