Предмет: Информатика, автор: yaroslavovna

Допишите программу на языке Паскаль. См. Фото. Пожалуйста помогите очень нужна ваша помощь.

Приложения:

Ответы

Автор ответа: Ejproduction
0

Ответ:

var x:Integer;

begin

WriteLn('Введите целое число: ');

ReadLn (x);

if x > 0 then

WriteLn('x, равная', x, 'больше 0')

else

if x < 0 then

WriteLn('x, равная', x, 'меньше 0')

else

WriteLn('x, равная', x, 'равно 0')

end

Похожие вопросы
Предмет: Литература, автор: рита483