Задача 7 Урок 10.1
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
- 562 reads
Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
var i: integer; begin for i := 1 to 100 do if (i mod 7 = 0) then write(i, ' '); readln(); end.