Ответы
Ответ дал:
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.
Аноним:
ReadInteger*ReadInteger=ReadInteger - это, конечно, песня... )))
Вас заинтересует
10 месяцев назад
10 месяцев назад
1 год назад
7 лет назад