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