Const
n=10;
m=5;
var
s:real;
i,j:integer;
a:array[1..m,1..n]of real;
begin
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:6);
end;
writeln;
end;
s:=a[1,1];
for i:=1 to m do
for j:=1 to n do a[i,j]:=a[i,j]/s;
writeln('Преобразованный массив:');
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:6:3);
writeln;
end;
<span>end.</span>
1 символ в алфавите племени "Чупакабра" = 2 бита.
Всего символов 24.
24×2=48(бит)
Ответ:48 бит.
(если сумма цифр числа делится на 3, то число делится на 3 нацело)
var a, s: integer;
begin
s:=0;
writeln ('Введите число');
while a<> 0 do
begin
a:= a mod 10
S:=s+a;
end;
if S mod 3 = 0 then writeln ('делится') else
writeln ('не делится');
end.
Я понял надо отдельно параболу и прямую
5 раз больше не ту!!!!! а тут что так трудно