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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
