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