Урок 13.1 Задача 7
Primary tabs
Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все четные числа от 1 до введённого пользователем.
Решение:
var n : integer; begin while (true) do begin writeln('Введите целое число'); readln(n); if (n > 0) then for n := 2 to n do begin if ((n mod 2) = 0) then writeln(n, ' ') end else writeln('Ошибочка'); end; readln(); end.
- Log in to post comments
- 1423 reads
vedro-compota
Tue, 06/21/2022 - 20:25
Permalink
1) Уйти от бесконечного цикла
1) Уйти от бесконечного цикла
2)
-- нужно начинать с 1
_____________
матфак вгу и остальная классика =)
kuznmax
Tue, 06/28/2022 - 15:33
Permalink
var n : integer;
vedro-compota
Tue, 07/05/2022 - 20:02
Permalink
while (true) do
в этой задаче достаточно спросить число 1 раз, внешний цикл не нужен - тем более бесконечный
_____________
матфак вгу и остальная классика =)
kuznmax
Mon, 07/11/2022 - 09:55
Permalink
program Project1;
vedro-compota
Tue, 07/12/2022 - 19:54
Permalink
исправить форматирование
исправить форматирование
_____________
матфак вгу и остальная классика =)