задача 8 урок 11
Primary tabs
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.
var i,a: integer; begin i:=1; while i>0 do begin writeln('vvedite luboe chislo'); readln(a); if (a<0) and ((a mod 2)<>0) then begin writeln ('otricatelnoe nechetnoe chislo: ', a); i:=i+1; end; if (i=3) then break; end; readln(); end.
- Log in to post comments
- 260 reads