Урок 11 задача 8
Primary tabs
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.
var a, g: integer; begin a := 1; g := 0; while (a <> 0) do begin readln(a); if ((a < 0) and ((a mod 2) <> 0) and (g < 3)) then begin writeln('Podhodyasee chislo =', a); g := g + 1; end; if (g = 3) then break; end; readln(); end.
- Log in to post comments
- 960 reads
vedro-compota
Thu, 07/29/2021 - 20:38
Permalink
переписать без break
переписать без break
_____________
матфак вгу и остальная классика =)
MrDeadSummer
Thu, 07/29/2021 - 22:08
Permalink
var a, g: integer;