Помогите составить программу на языке паскаль

Составить программу разветвляющей структуры

Написать прогрумму, которая проверяет, является ли введенное с клавиатуры число четным и положительным

Question

Полинария

7 января, 16:36

+4

Ответы (1)

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

Видина · Answer 1

Var a:integer;

begin

read (a) ;

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

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

end.