Question

ПОЖАЛУЙСТАААА НА ЗАВТРАА ПРОГА ПО ИНФОРМАТИКЕ НА ПАСКАЛЕ , составить программу которая определяет четность или нечотность числа

Answer 1

program pr1;                                                            

var

 a: integer;

begin

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

readln(a);

if x mod 2=0 then writeln(число четное);

else writeln(число не четное);

readln;

end.

вроде должно работать

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Answer 2

var

a,b,c:integer;

begin

readln(a);

if (amod2)=0 then

writeln('оно четное');

else writeln('оно нечетное');

end.

как-то так)

Answer 3

Конечно, вот пример программы на языке Паскаль, которая определяет четность или нечетность числа:

program CheckEvenOdd;
var
  num: integer;
begin
  writeln('Введите число:');
  readln(num);
  
  if num mod 2 = 0 then
    writeln('Число ', num, ' является четным.')
  else
    writeln('Число ', num, ' является нечетным.');
  
  readln;
end.

Программа запрашивает у пользователя ввод числа и затем с помощью оператора `mod` проверяет, делится ли число на 2 без остатка. Если остаток от деления равен 0, то число считается четным, в противном случае - нечетным. Затем программа выводит соответствующее сообщение на экран.

Надеюсь, это помогло! Если у вас есть еще вопросы, не стесняйтесь задавать.