Var n,k1,k2:integer;
begin
write('n = ');
readln(n);
k1:=0; k2:=0;
while n>0 do
begin
if n mod 2=0 then k1:=k1+1 else k2:=k2+1;
n:=n div 10;
end;
writeln('Четных цифр - ',k1,', нечетных - ',k2);
end.
Пример:
n = 14568
Четных цифр - 3, нечетных - 2
Компьютер нужен для получения информации.Так же для выполнения различных операций.Компьютер нужен для отправки разных файлов из одного компьютера на другой.
На счет ввода с клавиатуры, уточните в комментариях, поскольку массив не может сформироваться если же это не константа. Вот программа
Var
r,y:real;
begin
readln(r);
if (r>=-7)and(r<=-3)then
y:=r+7;
if (r>=-3)and(r<=-2)then
y:=4;
if (r>=-2)and(r<=2)then
y:=sqr(r);
if (r>=2)and(r<=4)then
y:=-2*r+8;
writeln(y);
if (r<-7)or(r>4)then
writeln('Введите значение в диапазоне [-7;4]');
end.