Задание:
Паскаль! Среди введенных пользователем чисел подсчитайте сумму нечетных, окончание ввода число 2. (while)
Решение:
Program chik; var n,s: integer; beginn: =-1; s: =0; while n<>2 dobeginread (n); if (n mod 2=0) then s: =s+n; end; write (s); end.
Знаете другой ответ?