Урок№11 Задание 10
Primary tabs
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.
program Pr11_10; var a,b,c,x,i:integer; begin i:=0; while (i<>3) do begin writeln('Введите число: '); readln(x); if (x<0) and (x mod 2 <>0) then begin i:=i+1; if (i=1) then a:=x else if (i=2) then b:=x else if (i=3) then c:=x end; end; write('SUM= ',a+b+c); readln(); end.
Консоль:
Введите число: 2 Введите число: 4 Введите число: 6 Введите число: 7 Введите число: 8 Введите число: 9 Введите число: 0 Введите число: 10 Введите число: -1 Введите число: 0 Введите число: -2 Введите число: -3 Введите число: -5 SUM= -9
- Log in to post comments
- 354 reads