Паскаль.

Дана последовательность чисел. Признак конца ввода - ноль. Определить сумму нечетных и оканчивающихся на 3, а также их кол-во.

1

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

Лучший Ответ!
2013-05-18T07:11:44+00:00

var
a,s,k:integer;
begin
k:=0;
s:=0;
repeat
readln(a);
if (a mod 2=1) then begin s:=s+a; k:=k+1; end;
until a=0;
writeln('Сумма нечетных и оканчивающихся на 3 = ',s);
writeln('Их количество = ',k);
end.