K=4*30*50=6000 символов
I = K * i
I=4500 байт = 36000 бит
i=6
30*60*4=7200 символов
6300*8=50400 бит
50400/7200=7 бит на один символ
2^7=128 - мощность алфавита
Var a, b, c, d, x1, x2 : real; \\ задание переменных действительных чисел.
begin
write('a = '); readln(a); \\запрос у пользователя первого коэффициента
write('b = '); readln(b); \\запрос у пользователя второго коэффициента
write('c = '); readln(c); \\запрос у пользователя третьего коэффициента
d := b*b - 4*a*c; \\ расчет дискриминанта
if d=0 then \\ветка для решения при нулевом дискриминанте
begin
x1 := b / (2 * a)
writeln (x1:3:3);
end \\ окончание при нулевом дискриминанте
else
if d>0 then \\ ветка для решения при положительном дискриминанте
begin
x1 := (- b + sqrt(d) / (2 * a); \\ первый корень
x2 := (- b - sqrt(d) / (2 * a); \\ второй корень
writeln (x1:3:3, ' ', x2:3:3); \\ вывод ответа
end
else \\ ветка решения для отрицательного дискриминанта
writeln ('Нет действительных корней');
end.
Program isch;
Varx,y,z,k,n:integer;
Begin
x:=2;y:=3;k:=1;n:=8;
if (k<=n) then
begin z:=3*y+4*x+1;
x:=y;
y:=z;
k:=k+1;
end;
writeln('z=',z, ' x=',x, ' y=',y, ' k=',k);
<span>end.
Делал строго по алгоритму...</span>
Максимально подробно.
1 символ занимает 8 бит = 1 байт.
1 усл. п. л. занимает 96 Кбайт = 98304 байт = 98304 символов (1 Кбайт = 1024 байта)
4 усл. п.л. будут занимать 393216 символов.
Находим время: 393216 символов / 512 символов в секунду = 768 секунд = 12,8 минуты
Ответ: 12,8 минуты или 12 минут 48 секунд.