Решаем задачи Абрамян на Паскале. Series8

Series8. Дано целое число $N$ и набор из $N$ целых чисел. Вывести в том же порядке все четные числа из данного набора и количество $K$ таких чисел.

Решение:

program Series8;
var
  i,N,R,K:Integer;
begin
  K:=0;
  Write('Введите N: ');
  Readln(N);
  for i:=1 to N do
   begin
     Write('Введите ',i,' число: ');
     Readln(R);
     if (R mod 2) =0 then
     begin
       Writeln(R);
       inc(K,1);
     end;
   end;
  Writeln(K);
end.

program Series8;

var

i,N,R,K:Integer;

begin

K:=0;

Write('Введите N: ');

Readln(N);

for i:=1 to N do

begin

Write('Введите ',i,' число: ');

Readln(R);

if (R mod 2) =0 then

begin

Writeln(R);

inc(K,1);

end;

Writeln(K);

end.

Другие задачи из раздела Series можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Series8

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ