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