Урок №11 Задание 8
Primary tabs
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.
program Pr11_8; var i,a,x:integer; begin i:=0; while (i<>3) do begin writeln('Введите число: '); readln(a); if (a mod 2 <>0) and (a<0) and (i<=3) then begin x:=x+a; i:=i+1; end; end; writeln('X= ',x); readln(); end.
Консоль:
Введите число: 1 Введите число: 2 Введите число: -3 Введите число: 0 Введите число: 16 Введите число: -1 Введите число: -5 X= -9
- Log in to post comments
- 343 reads