86-8=78 всего играет в игры
54+62=116 игродетей
116-78=38 детей играют и в квесты и в симуляторы
Const
n = 10;
var
b: array [1..n] of real;
i: byte;
begin
for i := 1 to n do
begin
b[i] := cos(i);
writeln('b[',i,'] = ', b[i]);
end;
end.
Используйте алгоритм быстрой сортировки.
Пример:
Массив:
5 3 4 2 1 6 3 2 4
После сортировки:
<span>1 2 2 3 3 4 4 5 6 </span>
<span>Различных чисел: 5</span>
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
1.To(5).Println(',')
end.
<u>Результат</u>
1,2,3,4,5
Возьми слово переписка
подбирай слова такие чтобы в них была буква п е р е п и с к а.
все!