Задача 5 Урок 12
Primary tabs
Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
program lesson12_5; var i: integer; begin i := 35; repeat if i mod 2 = 0 then write(i, ' ') else if (i mod 21 = 0) and (i >= 45) and (i <= 99) then write(i, ' '); i := i + 1; until i > 117; readln(); end.
- Log in to post comments
- 837 reads
vedro-compota
Tue, 07/27/2021 - 18:35
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)