Корень из S и умножить на 4???
Можно такими координатами: 0.0 4.8 8.0 0.0
итого 4 координаты
I диск = 650 Мбайт
записываем фильм 600 Мбайт < 650 Мбайт
II диск =650 Мбайт
записываем два фильма 55+400 = 450 Мбайт < 650 Мбайт
III диск = 650 Мбайт
записываем музыку 100*3,5=350 Мбайт < 650 Мбайт
1.
Var
a,n:integer;
Begin
write('Введите число n ');
Readln(n);
while a<=n do
Begin
write(a,' ');
a:=a+1;
End;
End.
2.
Var
a,n,d:integer;
Begin
d:=2;
write('Введите число n ');
Readln(n);
while a<n do
Begin
write(d,' ');
d:=d+2;
a:=a+1;
End;
<span>End.
</span>3.
Var
a,b:integer;
Begin
write('Введите числа a и b: ');
Readln(a,b);
while a<=b do
Begin
writeln(a,'^2 = ',sqr(a),' ');
a:=a+1;
End;
<span>End.</span>