Задание 10 Урок 11
Primary tabs
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.
var i, a, b, c, d, sum: integer; begin i := 0; while (i < 3) do begin write('Введите целое число: '); readln(a); if ((a < 0) and (a mod 2 = -1)) then begin i := i + 1; if (i = 1) then b := a else if (i = 2) then c := a else d := a; end; end; writeln('-------------'); sum := b + c + d; writeln('Сумма: ', sum); readln(); end.
Консоль:
Введите целое число: 8 Введите целое число: 234 Введите целое число: -2 Введите целое число: -9 Введите целое число: 3245 Введите целое число: 873 Введите целое число: -20 Введите целое число: -1 Введите целое число: -7 ------------- Сумма: -17
- Log in to post comments
- 359 reads