Паскаль!
среди введенных пользователем чисел подсчитайте сумму нечетных, окончание ввода число 2. (while)

1

Ответы и объяснения

2013-12-11T23:59:07+04:00
Program chik;
var n,s:integer;
begin
n:=-1;
s:=0;
while n<>2 do
begin
read(n);
if( n mod 2=0)then s:=s+n;
end;
write(s);
end.