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