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 ответа

ПОМОГИТЕ РЕШИТЬ!!! СРОЧНО!!! 45 БАЛЛОВ!!!

СОКОЛАР [2]

1) 15 (A-B-F-Z)

2) 17 (A-B-D-E-F-Z или A-B-D-E-G-Z)

3) 15 (A-B-F-Z)

0 0

4 года назад

СРОЧНО ПОМОГИТЕ ПОЖАЛУЙСТА Запись числа 23 в системе счисления с основанием N выглядит так: 212. Укажите основание N этой систем

stringi

$212_{N}=2*N^2+1*N+2= 23_{10}$
$2N^2+N+2=23$
$2N^2+N-21=0$

0 0

3 года назад

Подскажите формулу для Exel, что бы найти сумму надбавки

Karambo [9]

Вроде так. дальше протяжку сделайте и все

0 0

4 года назад