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

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

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

Question

Информатика

Степа

25 августа, 10:48

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

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

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

+4

Ответы (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.