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.
Для виконання обчислень у програмі Excel використовують формули. Формули нагадують рецепти. їх можна складати самим або ж використовувати готові. Формула - це короткий запис послідовності дій, яка дає конкретний результат. Написавши певну формулу, Ви визначаєте порядок виконання дій.
Порядок виконання операцій записують за допомогою операторів. Але для отримання конкретного результату необхідно підставити в формулу конкретні значення величин, які до неї входять. Значення - це числа, дати, час, текст.
Х+у=61
у+а=94
а+х=53
складываем
2х+2у+2а=208
х+у+а=208\2
х+у+а=104
общее количество знакомых
тогда
х=98,104-98=6
у=150,150-104=46
а=130,130-104=26
6+46+26=78
человек есть знакомых общих
тогда ответ будет
104-78=26
Ответ-----26 человек
В 15 задании свою фамилию поставь и посчитай. Я там пример привела...
c. Работать двум обучающимся за одним компьютером