Задача 10 урок 11
Primary tabs
http://fkn.ktu10.com/?q=node/7341
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.
program task10_lesson11; var i,a,a1,a2,a3: integer; begin i:=0; while i<3 do begin writeln('enter number'); readln(a); if ((a < 0) and ((a mod 2) = -1)) then begin i:=i+1; if i=1 then a1:=a else if i=2 then a2:=a else a3:=a; end; end; writeln(a1+a2+a3); readln(); end.
- Log in to post comments
- 506 reads