Задача 4 Урок 11
Primary tabs
Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).
program Lesson4v1; var a: integer; begin a := 35; while (a <= 117) do begin if (a mod 2)=0 then writeln(a); a:=a+1; end; a:=45; while (a <= 99) do begin if (a mod 2)<>0 then writeln(a); a:=a+1; end; readln() end.
program Lesson4v2; var a: integer; begin a := 35; while (a <= 117) do begin if (a>=45) and (a<=99) then writeln(a) else if ((a mod 2)=0) then writeln(a); a:=a+1; end; readln(); end.
- Log in to post comments
- 938 reads
vedro-compota
Wed, 08/03/2022 - 20:22
Permalink
if (a>=45) and (a<=99) then
-- использовать if в неполной форме (использовать логическое выражение)
_____________
матфак вгу и остальная классика =)
NikSo
Thu, 08/04/2022 - 07:46
Permalink
Исправил
vedro-compota
Wed, 09/21/2022 - 19:37
Permalink
нечетные числа, лежащие в
-- выше не по условию
_____________
матфак вгу и остальная классика =)
vedro-compota
Wed, 09/21/2022 - 19:38
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)