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