Урок 10 задача 9
Primary tabs
Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
var i: integer; begin for i := 1 to 100 do if ((i mod 7) = 0) then write(i,' '); readln; end.
- Log in to post comments
- 318 reads
Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
var i: integer; begin for i := 1 to 100 do if ((i mod 7) = 0) then write(i,' '); readln; end.