Если писать в паскале(Pascal ABC) то попробуй так:
Uses crt;
Var
a:real;
begin
readln(a);
if (a > 180) then
writeln ('Высокий')
else
writeln ('Не очень высокий);
End.
Var
x, y, z: integer;
begin
read(x, y, z);
if (x = y) and (y = z) and (x = z) then
begin
x := 3 * x;
y := 3 * y;
z := 3 * z;
write(x, y, z);
end
else
if (y = z) then
begin
x := -x;
y := -y;
z := -z;
write(x, y, z);
end
else
begin
x := 222;
y := 222;
z := 222;
write(x, y, z);
end;
end.
83 -6=77всего играет в игры
55+62=117 детей - игроков
117 -77 =40 детей играют и в квесты, и в симуляторы
в помощь таблица со степенями двойки
1)берем число , и отнимаем максимально возможное из таблицы, с ответом то делаем то же , и под отнимаемыми числами пишем 1 все остальное - нули
2)то же самое , только наоборот : складываем все числа , под которыми 1