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

Proc24. Описать функцию Even($$K$$) логического типа, возвращающую True, если целый параметр $$K$$ является четным, и False в противном случае. С ее помощью найти количество четных чисел в наборе из 10 целых чисел.

Решение:

program Proc24;

Function Even(K:Integer):Boolean;
begin
 Even:=not(odd(k));
end;

var
 i,N,Res:Integer;

begin
 for i:=1 to 10 do
 begin
 Write('N :');
 Readln(N);

 if Even(N) then Inc(Res);
 end;
 Writeln(Res);
end.

program Proc24;

Function Even(K:Integer):Boolean;

begin

Even:=not(odd(k));

end;

var

i,N,Res:Integer;

begin

for i:=1 to 10 do

begin

Write('N :');

Readln(N);

if Even(N) then Inc(Res);

end;

Writeln(Res);

end.

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

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

olegst1975

11.01.2016 в 02:12

не нужен оператор сравнения — строки 5-6

[crayon-6742a1d6d1f75436472330 inline="true" ] Even:=not(odd(k));

1
2

[crayon-6742a1d6d1f75436472330 inline="true" ]
Even:=not(odd(k));

[/crayon]

Ответить
- Anton
  
  11.01.2016 в 09:04
  
  Поправил
  Было:
  
  Function Even(K:Integer):Boolean; begin if not(odd(k)) then Even:=True else Even:=False; end;
  
  1
  2
  3
  4
  5
  
  Function Even(K:Integer):Boolean;
  begin
  if not(odd(k)) then Even:=True
  else Even:=False;
  end;
  
  Стало:
  
  Function Even(K:Integer):Boolean; begin Even:=not(odd(k)); end;
  
  1
  2
  3
  4
  
  Function Even(K:Integer):Boolean;
  begin
  Even:=not(odd(k));
  end;
  
  Ответить

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

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

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

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