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