Какое назначение данной программы?

var x: integer;

begin

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

readln (x) ;

if x mod 2 = 0 then

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

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

end.

Question

Чух

23 января, 20:14

+2

Ответы (1)

Знаете ответ на вопрос?

Епистыния · Answer 1

Если четное то да если не четное то нет

Какое назначение данной программы?var x: integer;beginwrite ('Введите x: ') ;readln (x) ;if x mod 2 = 0 thenwriteln ('Это четное число')else writeln ('Это нечетное число') ;end.