Предмет: Информатика,
автор: yaroslavovna
Допишите программу на языке Паскаль. См. Фото. Пожалуйста помогите очень нужна ваша помощь.
Приложения:
Ответы
Автор ответа:
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
Похожие вопросы
Предмет: Русский язык,
автор: KittenCatCat
Предмет: Русский язык,
автор: zanoza666
Предмет: Русский язык,
автор: леша20041
Предмет: Информатика,
автор: Direx1337
Предмет: Литература,
автор: рита483