Question

Дано ціле число. Визначте, чи воно парне В ЯЗЫКЕ ПАСКАЛЬ ПОЖАЛУЙСТА

Answer 1

var number:integer;

var number2:float;

begin

number2 = 0;

writeln("Введите число:");

readln(number);

if (number2 mod 2 = 0) then

writeln("Число чётное");

else:

writeln("Число нечётное");

end.

Answer 2

Для того, щоб визначити, чи є ціле число парним, можна використати наступний алгоритм:

- Введіть число n. - Якщо n ділиться на 2 без остачі, то виведіть "Число парне". - Інакше виведіть "Число непарне".

На мові Паскаль цей алгоритм можна реалізувати таким чином:

var n: integer;
begin
  readln(n);
  if n mod 2 = 0 then
    writeln('Число парне')
  else
    writeln('Число непарне');
end.

Ця програма зчитує число n з клавіатури, перевіряє його за допомогою операції mod, яка повертає остачу від ділення, і виводить відповідне повідомлення на екран.