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