Вводится последовательность из n на интервале от (1 ; n). найти: четное количество чисел.При решении использовать язык Паскаль.

1

Ответы и объяснения

Лучший Ответ!
2013-11-24T15:46:23+04:00
{1ый вариант}
var

x,i,n: integer;
begin
write('n = ');
read(n);
for i:= 1 to n do
 if odd(i) = false then x:=x+1;
writeln('Чётных чисел: ',x);
end.

{2ой вариант}
var
x,i,n: integer;
begin
write('n = ');
read(n);
for i:= 1 to n do
 if i mod 2 = 0 then x:=x+1;
writeln('Чётных чисел: ',x);
end.
Функцию odd, вы, возможно, не изучали, поэтому советую взять второй вариант.