Var a:real;
begin a:=2;
while a<2.8 do begin
a:=a+0.1;
writeln(a);
end;
<span>end.</span>
А ты не пробовала написать этот кусок алгаритма в Pascal?
если х=-3, а у=-2; Х=-2,У=-1.
если х=-1, а у=4; Х=0 ,У=2
960 / 36 = 26,666... Кб/сек
26,666 * 60 = 1599,999... Кб/мин
1599.999 * 65 = 103999,999 Кб за 65 минут
103999,999 / 1024 =~ 101,562 Мб за 65 минут
Ответ: 101 полных Мб
T = (1000 * 800 * 24) / 128000 = 150 секунд
<span>byte = float(input("Введите число в байтах: "))
if byte>0:
b = byte * pow(10,-12)
k = byte * pow(10,-3)
mb = byte * pow(10,-6)
gig = byte * pow(10,-9)
print(str(byte) + " байт = " + str(k) + " Килобайт")
print(str(byte) + " байт = " + str(mb) + " Мегабайт")
print(str(byte) + " байт = " + str(gig) + " Гигабайт")
print(str(byte) + " байт = " + str(b) + " Терабайт")
else:
print(False)
</span>