Чем отличается сохранить и сохранить как? ну если по логически подумать сохранить, сохраняет в том формате в котором работал, а сохранить как уже выбераешь сам как сохранить и в каком формате.
1 задание 1000кб 1500/75=20*50=1000
но я не математик :)
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>
В предложении 69 символов.
16 бит = 2 байта
I=69*2=138 байт
Ответ: 138 байт
Uses
GraphABC;
begin
Window.Init(0, 0, 300, 300, clWhite);
window.CenterOnScreen();
Pen.Color := clSilver;
Pen.Width := 3;
Brush.Style := bsGradient;
Brush.Color := clBlack;
Brush.GradientSecondColor := clWhite;
Rectangle(50, 50, 250, 250);
end.