Урок 11. Задача 10.
Primary tabs
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.
var a, b, c, d, e : integer; begin while (b < 3) do begin write('Enter an integer : '); readln(a); if (a < 0) and ((a mod 2) <> 0) then b := b + 1; if (b = 1) then e := a else if (b = 2) then d := a else c := a; end; writeln('Sum = ', e + c + d); readln(); end.
- Log in to post comments
- 428 reads