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