Не знаю что там за дано и решение и как оно оформляется, у нас в школе такого не было
1) пусть текст кодирован кодировкий ASCII по 8 бит на символ
0,25кб = 0,25*1024*8 бит
0,25*1024*8 / 8 = 256 символов
2) пусть текст кодирован кодировкий ASCII по 8 бит на символ
5*30*70 = 10500 всего символов
10500 * 8 бит = 84000 бит = 10500 байт
uses crt;
var
n:integer;
begin
n:=0;
repeat
n:=n+3;
until keypressed;
write(n);
end.
Var
i,j:integer;
a:array[1..12,1..10]of integer;
begin
writeln ('Исходная таблица: ');
for i:=1 to 12 do
begin
for j:=1 to 10 do
begin
a[i,j]:=50+random(10);
write(a[i,j]:3);
end;
writeln;
end;
writeln;
for i:=5 to 12 do
for j:=1 to 10 do
a[i-1,j]:=a[i,j];
for j:=1 to 10 do a[12,j]:=0;
writeln ('Измененная таблица: ');
for i:=1 to 11 do
begin
for j:=1 to 10 do
write(a[i,j]:3);
writeln;
end;
<span>end.</span>
Программа находит сумма квадратов двух чисел, чтоб уьроенного меняешь только строку c= и пишешь c=a*3+b*3