Урок10.1 задача 7
Primary tabs
Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
решение:
program U101Z7; var i: integer; begin for i:= 1 to 1000 do if i mod 7 =0 then write (i, ' '); readln(); end.
- Log in to post comments
- 591 reads
vedro-compota
Thu, 07/01/2021 - 20:32
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)