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

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

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

Question

Полинария

8 октября, 10:16

+4

Ответы (1)

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

Видина · Answer 1

Var a:integer;

begin

read (a) ;

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

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

end.