Напишите программу на паскале

А. выясните какие числа ввел пользователь: положительное или отрицательное?

Б. выясните какие числа ввел пользователь: четное или нечетное?

Question

Информатика

Лаврюся

3 июля, 10:27

Напишите программу на паскале

А. выясните какие числа ввел пользователь: положительное или отрицательное?

Б. выясните какие числа ввел пользователь: четное или нечетное?

+5

Ответы (1)

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

Аскольд · Answer 1

Var x:integer;

begin

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

readln (x) ;

if x>0 then write ('Число положительное и ')

else write ('Число отрицательное и ') ;

if x mod 2=0 then write ('четное.')

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

end.