Урок 12.1 Задача 4
Primary tabs
Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.
program project1; var numb:integer; begin numb:=35; repeat numb:=numb+1; if((numb mod 2=0)and(numb mod 3=0)and(numb mod 6=0))then write(numb,' '); until (numb>116); readln(); end.
- Log in to post comments
- 983 reads
vedro-compota
Wed, 09/22/2021 - 22:21
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)