Var s,a,b:integer;
begin
read(a,b);
s:=(a+b)*7;
write(s);
<span>end.</span>
Ответ:
2 бита, 512 битов, 50 байтов, 500 байтов, 0,5 кбайта
Можно посчитать все числа и делить на 2: 14 / 2 = 7, или посчитать только на одной стороне: 7
А) использование и передача информации
Б) получение и обработка информации
В) получение и обработка информации
Г) получение и обработка информации
Д) обработка и создание информации
Const
n=5;
var
a:array[1..n,1..n]of integer;
i,j,k:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
j:=n;
for i:=1 to n do
begin
if a[i,j]<5 then k:=k+1;
j:=j-1;
end;
writeln('Ответ: ',k);
<span>end. </span>