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