Решение задачи №7 из главы 10.1
Primary tabs
Решение задачи №7 из главы 10.1
Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
Вывод консоль
7
14
21
28
35
42
49
56
63
70
77
84
91
98
var i: integer; Begin for i:=1 to 100 do begin if (i mod 7)=0 then writeln(i); end; readln(); End.
Второй вариант
Вывод консоль
7
14
21
28
35
42
49
56
63
70
77
84
91
98
var i,j: integer; begin for i:=1 to 100 do begin j:=j+1; if (j=7) then begin j:=0; writeln(i); end; end; readln(); end.
- Log in to post comments
- 1123 reads
vedro-compota
Sat, 10/10/2020 - 20:12
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)