у квадрата все стороны равны.
сумма углов треугольника равна 180 градусам.
Var
a: array[1..9] of integer;
i: integer;
begin
i := 1;
while i <= 7 do
begin
write('Введите ',i, ' элемент массива : ');
Readln(a[i]);
a[i + 1] := (i + 1) * 10;
a[i + 2] := (random(101) - 50) - a[i + 1];
i := i + 3;
end;
for i:=1 to 9 do write(a[i]:4);
end.
Тестовое решение:
Введите 1 элемент массива : 5
Введите 4 элемент массива : 1
Введите 7 элемент массива : 9
5 20 -36 1 50 -92 9 80 -64
Если брать кодировку <span>ASCII то получается что 1*51(если после запятой должен быть пробел) и мы получаем 51 байт
В данной кодировке любой символ кодируется 1 байтом и поэтому нужно всего лишь умножить 1 на количество символов и мы получим ответ в байтах</span>