Определение четности числа на Pascal

Определение четности числа...

var x: integer;
begin
  write('Введите x: ');
  readln(x);
  if x mod 2 = 0 then
    writeln('Это четное число')
  else writeln('Это нечетное число');
end.



Просмотров: 5244
10.02.2015, 08:57 -

Категория: Статьи » Программирование » Pascal