Урок №10.1 Задание 10
Primary tabs
Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
program Pr10_1_10; var i:integer; begin for i:=1 to 100 do if (i mod 7 = 0) then write(i,' '); readln(); end.
Консоль:
7 14 21 28 35 42 49 56 63 70 77 84 91 98
- Log in to post comments
- 205 reads