Задана последовательность из n вещественных чисел. Определить

количество четных и количество нечетных элементов

последовательности.

оператор цикла с параметром;

Question

Информатика

Корюн

28 декабря, 12:00

Задана последовательность из n вещественных чисел. Определить

количество четных и количество нечетных элементов

последовательности.

оператор цикла с параметром;

+3

Ответы (2)

Знаете ответ на вопрос?

Тата · Answer 1

Ну вот тебе внутренняя часть проги:k:=0;

while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end; writeln ('Кол-во четных = ', a, ' Кол-во нечетных = ', s)

Адейла · Answer 2

Program p;

var n, a, k, m, i:integer;

begin

writeln ('Введите n') ;

write ('n=') ;

readln (n) ;

k:=0;

m:=0;

for i:=1 to n do begin

readln (a) ;

if a mod 2=0 then k:=k+1

else m:=m+1;

end;

writeln ('Количество четных ', k) ;

writeln ('Количество нечетных ', m) ;

end.

Задана последовательность из n вещественных чисел. Определитьколичество четных и количество нечетных элементовпоследовательности.оператор цикла с параметром;