Задача 10 Урок 11
Primary tabs
http://fkn.ktu10.com/?q=node/7341
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.
var i, min,a,b,c: integer; begin i:=1; while i <= 3 do begin writeln('vvedite celoe chislo '); readln(min); if (min < 0) AND ((min mod 2)= -1) then begin if (i=1) then c:=min else if (i=2) then b:=min else if (i=3) then a:=min; i:=i+1; writeln('summa pervih treh otric chisel = ', a+b+c); end; end; end.
- Log in to post comments
- 659 reads