А) ж) - звуковий;
б) текстовий;
в) текстовий;(немного сомневаюсь)))
г) графічний;
д) комбінований.
Var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
repeat
s := s + 2 * (n + i);
i := i + 1;
until i > n;
writeln(s);
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ArrRandom(ReadInteger('n='),-99,99).Println.Where(x->x.IsEven).
Println.Take(2).Println;
end.
<u>Пример</u>
n= 15
45 38 43 77 -41 -49 36 98 -29 93 9 34 9 -74 53
38 36 98 34 -74
38 36
// PascalABC.NET 3.3
begin
var a:=ArrRandom(10,-10,10);
writeln('Исходный:'); a.Println;
writeln('Реверс:');
a.Reverse.Println;
end.
Пример:
Исходный:
-4 10 4 3 0 -7 -1 -3 -4 -1
Реверс:
-1 -4 -3 -1 -7 0 3 4 10 -4
<span>оно может быть выражено в разных </span><span>языках</span>