В результате выполнения программы будет напечатано 60
80 Гб = 83886080 Кб
83886080 / 1440 = 58254,2222... (т.е. понадобится 58255 дискет)
58255*20 = 1165100 г. = 1165,1 Кг.
Program DZ;
var n,i,k,j,f:longint;
a:array [1..10000] of longint;
begin
k:=0;
read (n);
a[1]:=1;
a[2]:=1;
for i:=3 to 10000 do
begin
if not(a[i-1] < n) then
begin
break
end;
a[i]:=a[i-1]+a[i-2];
k:=k+1
end;
for i:= 1 to k do
begin
f:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then f:=1;
if f=0 then write (a[i],' ');
end;
end.
Это для Pascal
Uses graphABC;
Var
x,y,i:integer;
begin
x:=100;
y:=100;
rectangle(x,y,x+100,y+100);
for i:=1 to 100 do
begin
rectangle(x,y,x+100,y+100);
setpencolor(clwhite);
circle(x+i-1,y+i-1,11);
setpencolor(clblack);
circle(x+i,y+i,10);
sleep(100);
end;
end.
<span>Program Ploshad_Priamougolnika;
</span>Var<span>a,b : byte; {стороны прямоугольника}
</span><span>S : word; {вычисляемая площадь прямоугольника}</span>
Begin<span>Writeln ('Введите значения сторон прямоугольника');
</span>Readln (a,b);
S:=a*b;
<span>Writeln ('Площадь прямоугольника =',S);
</span><span>End<span>.</span></span>