Var x,y,z,n:integer;
begin
writeln('Введите n');
readln(n)
;for x:=1 to n do
begin
for y:=1 to n do
begin
for z:=1 to n do
begin
if (sqr(x)+sqr(y)+sqr(z)=n)then writeln('x=',x,' y=',y,' z=',z);
end;
end;
end;
<span>end.</span>
Значит будет так 35.56×1200×35.56×1200×24=43701590016 бит
Размер изображения в дюймах × разрешающую способность сканера × глубину цвета
Ps dpi означает dot per inch (точек на дюйм)
Function Max(a,b,c:integer):integer;
Begin
if b > a then a:=b;
if c > a then a:=c;
result:=a;
End;
Var
a,b,c:integer;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
Write('Max = ',Max(a,b,c))
End.
<span>файл в приложении==============</span>
//////////////////////////////////