Задача 9 Урок 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
- 320 reads
Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
var i:integer; begin for i:=1 to 100 do if (i mod 7)=0 then write(i, ' '); readln(); end.
vedro-compota
Tue, 06/07/2022 - 21:46
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)