Var a, b, x : real;
Begin
Write('Введите а: ');
Readln(a);
Write('Введите b: ');
Readln(b);
X := -b + b * b - 4 * a * b / 2 * a;
Write('x = ', x : 0 : 2);
Readln;
End.
FOR i = 1 TO 14
s = s + i
NEXT i
<span>PRINT "s=";s</span>
6 раз, например первые 4 это яблоки а остальные 2 апельсины
1. Переведём : 2550 КБ = 20400 Кбит
2. Определим время:
3. Ищем неизвестное:
x = 28560 Кбит
4. Переведём : 3570 КБ
Перевод осуществляется:
1 КБ = 8Кбит