Урок 12.1 Задача 5
Primary tabs
Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).
Решение:
var i: integer; begin for i:=35 to 117 do if (i mod 2=0) then write(i:4); writeln; writeln; for i:=45 to 99 do if (i mod 2<>0) then write(i:4); readln(); end.
- Log in to post comments
- 2012 reads
vedro-compota
Tue, 04/26/2022 - 20:27
Permalink
пока оставляем for
_____________
матфак вгу и остальная классика =)
kuznmax
Mon, 05/02/2022 - 13:54
Permalink
правка 1
vedro-compota
Tue, 05/10/2022 - 17:29
Permalink
Правильное форматирование
Правильное форматирование будет выглядеть так:
-- самое решение засчитано.
2) Добавить решение 1 циклом (с одним перебором ряда чисел)
_____________
матфак вгу и остальная классика =)
vedro-compota
Tue, 05/17/2022 - 20:25
Permalink
1) Переписать решение через
_____________
матфак вгу и остальная классика =)
kuznmax
Tue, 05/24/2022 - 16:00
Permalink
program Project1;
vedro-compota
Tue, 05/24/2022 - 20:02
Permalink
засчитано, нужно добавить
засчитано, нужно добавить решения двумя циклами
_____________
матфак вгу и остальная классика =)