Var n:integer;
begin
readln(n);
if n > 0 then n:=n-8
else if n < 0 then n:=n+6
else n:=10;
writeln(n);
end.
Пример:
-5
1
Это типо сайт надо создать или как
Ввести число 1
|
Ввести число 2
|
Если число 1 больше числа 2
да нет
| |
чиcло1=число1*2 чиcло1=число1^2
чиcло2=число2^2 чиcло2=число2*2
|_____________________ |
|
Вывести число 1
|
Вывести число 2
V=urta
u=16кГц=16000Гц
r=24/8=3(какое бы число ни было дано, всегда делим на 8)
t=3*60=180 с.
a=1(т.к. одноканальная, если двухканальная, то 2)
V=16000*3*180*1=8640000 байт.
8640000/1024=8437,5 Кбайт.
8437,5/1024=8.2 Мбайта.
Ответ: 2(8 Мбайт).
Сперва узнаем, сколько ребят любят компьютерные игры:
83 - 6 = 77(чел.) - играют в компьютерные игры
Затем сложим "квестников" и "симуляторников":
55 + 62 = 117(чел.)
Затем отнимем от получившейся суммы количество любителей игр:
117 - 77 = 40(чел.)
Ответ: 40 человек.