Ответ:
1,4гб будет размер компакт диска дальше сами считайте
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var a:=1 to 9 do
for var b:=1 to 9 do
for var c:=1 to 9 do
if 100*a+10*b+c=5*a*b*c then Write(a,b,c,' ');
end.
<u>Результат</u>
175
Var a1,a2,a,n:integer;
begin
a1:=1; a2:=1;
n:=2;
while a2<=100 do
begin
a:=a1+a2;
a1:=a2;
a2:=a;
n:=n+1;
end;
writeln('n = ',n,' an = ',a2);
end.
Результат:
<span>n = 12 an = 144</span>