Задана последовательность из n вещественных чисел. определить количество четных и количество нечетных элементов последовательности. оператор цикла с параметром;
Ну вот тебе внутренняя часть проги:k:=0; while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)
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.
while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)
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.