Var x: real;
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
<span>end.

</span>Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end.

0 0

4 года назад

Прочитать ещё 2 ответа

ПАСКАЛЬ!!! 9 КЛАСС.ПОМОГИТЕ СРОЧНО!!!

Gogerman

Дай свой вк, я могу решить это

0 0

1 год назад

Помогите пожалуйста....1)Наглядное представление информации, обеспечивающее легкость ее восприятия(12 букв)2)При визуализации мо

holycare

1) визуализация
2) точность

ИНФА СТО ПРОЦ

0 0

4 года назад

Как скриншотить на компе подскажите пожалуйста

Одесса [7]

Prt Sc клавиша.

Потом просто вставляешь картинку

0 0

1 год назад