Uses crt;
var a: array[1..5, 1..5] of integer;
i, j: integer;
begin
for i := 1 to 5 do begin
for j := 1 to 5 do begin
a[i, j] := 1 + random(9);
write(a[i, j]:4);
end;
writeln;
end;
writeln;
for j := 1 to 5 do begin
for i := 1 to 5 do
write(a[i, j]:4);
writeln;
end
<span>end.</span>
N=2^I N=65536 следовательно I=16
V=1280*1024*16=20971520 бит=2621440 байт=2560кБайт=2,5 Мбайт
Program z1;
var a,b,c,p:double;
begin
readln(a);readln(b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
writeln(p);
readln
end.
Var
a,a1,a2:integer;
Begin a:=10;
Write('Двузначные числа, сумма цифр которого равна 12: ');
while a<100 do
begin
a1:=a mod 10;
a2:=a div 10;
if (a1+a2)=12 then write(a,', ');
a:=a+1;
end;
<span>End.
</span>