Предмет: Информатика,
автор: ernesto13
Плиз помогите. Всё надо в PascalAbc.net
Приложения:
![](https://files.topotvet.com/i/3ea/3ea593ac9fda4de01cfa07b3e66717b4.jpg)
Ответы
Автор ответа:
1
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
1)
begin
Println(ReadInteger('x->')<0?'Отрицательное':'Положительное');
end.
2)
begin
Println(ReadInteger('x->').IsEven?'Четное':'Нечетное');
end.
3)
begin
Println(ReadInteger*ReadInteger=ReadInteger?'Правильно':'Неправильно');
end.
//Версия 3.3, сборка 1634 (14.02.2018)
1)
begin
Println(ReadInteger('x->')<0?'Отрицательное':'Положительное');
end.
2)
begin
Println(ReadInteger('x->').IsEven?'Четное':'Нечетное');
end.
3)
begin
Println(ReadInteger*ReadInteger=ReadInteger?'Правильно':'Неправильно');
end.
Giammy:
Старался)
Похожие вопросы
Предмет: Математика,
автор: manthefrom
Предмет: Алгебра,
автор: zumabekapihovic
Предмет: Українська мова,
автор: darinastolarcuk8
Предмет: Геометрия,
автор: Cu6upb9lk
Предмет: География,
автор: катя1568