Урок 10 Задача 7
Primary tabs
Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
var i: integer; begin for i:= 1 to 100 do if ((i mod 7) = 0) then writeln(i); readln(); end.
- Log in to post comments
- 890 reads
Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
var i: integer; begin for i:= 1 to 100 do if ((i mod 7) = 0) then writeln(i); readln(); end.
vedro-compota
Thu, 07/29/2021 - 21:02
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)