Определить, сколько процентов от всего количества элементов последовательности целых чисел составляют нечетные элементы. (программа Паскаль)
Вопрос посетителя
Определить, сколько процентов от всего количества элементов последовательности целых чисел составляют нечетные элементы.
Ответ эксперта
var
a,b,n:integer;
begin
writeln(‘введите последовательность целых чисел через пробел, enter-конец ввода’);
write(‘>’);
while not eoln do begin
read(a);
if a mod 2<>0 then b:=b+1;
n:=n+1;
end;
writeln(‘нечетные числа составляют ‘,b/n*100:6:2,’%’);
end.
