Var x: integer; begin write('Введите x: '); readln(x); if x mod 2 = 0 then writeln('Это...

Question

Var x: integer; begin write('Введите x: '); readln(x); if x mod 2 = 0 then writeln('Это четное число') else writeln('Это нечетное число'); end. Найдите ошибки в программе срочно, или что то добавьте! Спасибо

Answer 1

var

 x: integer;

begin

 write('Введите x: ');

 readln(x);

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

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

end.

Здесь нет ошибок!

Answer 2

если программа работает то в ней нет ошибок

у меня она работает

можно добавить скобки в условии

var x: integer;

begin

write('Введите x: ');

readln(x);

if x mod 2 = 0 then

writeln('Это четное число')

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

end.