''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Var a, b, c, v, s:integer;
begin
read(a, b, c);
writeln('V = ', a*b*c);
writeln('S = ', 2*(a*b+b*c+a*c));
end.
//PascalABC.Net 3.0, сборка 1064
var
a:array[1..7] of integer;
i:integer;
begin
Randomize;
Write('Исходный массив: ');
for i:=1 to 6 do begin
a[i]:=Random(20);
Write(a[i],' ')
end;
Writeln;
for i:=6 downto 3 do a[i+1]:=a[i];
Write('Введите значение вставляемого элемента: '); Read(a[3]);
Write('Результирующий массив: ');
for i:=1 to 7 do Write(a[i],' ');
Writeln
end.
<em><u>Тестовое решение:</u></em>
Исходный массив: 8 2 5 0 6 17
Введите значение вставляемого элемента: -5
Результирующий массив: 8 2 -5 5 0 6 17
Проектор он называется проектор ( просто тут 20 символов просят )
1. Мощность здесь - это количество символов - 16.
2. Р = 01
А = 100
Д = 00
А = 100
Р = 01
ДАР
3.
C D
CCC DDD
CCD DDC
CDC DCD
DCC CDD
5. N(мощность алфав.)=4 т.к. в этих словах использованы всего 4 буквы
6. 33-я; 2-б; 13-л; 16-о; 15-н; 33-я
Яблоня