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

Пример: дано: y=a/b

решение: Program RR;

Var

a,b,y:real;

begin

Read (a,b );

if b=0 then writekn ('решения нет')

else writeln (a/b);

end,

1

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

  • rapro
  • середнячок
2013-02-25T11:44:28+00:00
uses crt; var a:integer; begin ClrScr; Write('a='); Readln(a);  if a mod 2=0 then   Writeln('Четное')  else   Writeln('Не четное'); Readln; end.