Pascal урок 10.1. задача 7

Primary tabs

Submitted by Surd on Wed, 10/21/2020 - 22:43

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

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