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