Задача 7 Урок 10.1
Primary tabs
Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
program z7; 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
- 641 reads
Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
program z7; var i:integer; begin for i:=1 to 100 do if ((i mod 7)=0) then write(i,' '); readln(); end.
vedro-compota
Sat, 09/11/2021 - 12:10
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)