Задача 8 урок 11
Primary tabs
http://fkn.ktu10.com/?q=node/7341
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.
program task8_lesson11; var i,counter,a:integer; begin counter:=0; while counter <= 3 do begin writeln('Enter integer : '); readln(i); if (i<0) and ((i mod 2) = -1) then begin counter:=counter + 1; writeln(i); end; end; readln(); end
.
- Log in to post comments
- 545 reads