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