Задача 8 Урок 11
Primary tabs
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.
program lesson11_8; var a, num1, num2, num3 : integer; begin num3 := 0; num2 := 0; num1 := 0; while num3 = 0 do begin writeln('enter number a'); readln(a); if (a < 0) and (a mod 2 <> 0) then begin num3 := num2; num2 := num1; num1 := a; if num3 < 0 then writeln(num3, ' ', num2, ' ', num1) end; end; readln() end.
- Log in to post comments
- 1766 reads
vedro-compota
Sun, 07/25/2021 - 12:17
Permalink
тоже можно решить без обмена
тоже можно решить без обмена
По-идее результат:
должен выводиться за пределами тела цикла
_____________
матфак вгу и остальная классика =)
Aleksandr
Tue, 07/27/2021 - 15:49
Permalink
решение
vedro-compota
Tue, 07/27/2021 - 18:33
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)