Для различных вводимых с клавиатуры целых чисел найдите сумму положительных нечетных.

Для различных вводимых с клавиатуры целых чисел найдите сумму положительных нечетных.
Гость
Ответ(ы) на вопрос:
Гость
program noname; var a,b,c,d:integer; begin readln(a); b:=1; d:=0; while(b<>a) do begin readln(c); if (c mod 2)=1 then d:=d+c; b:=b+1; end; writeln(d); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы