Раст-это растровая (графика)
60Мб *1024*1024 = 62914560 байт
256Кбит = 32000 байт
31457280/32000 + 31457280/16000 = 983,04 + 1966,08 = 2949,12 сек ≈ 49 мин 9 сек
Паскаль
var a,b,c,d:integer; x,y:real;
begin
writeln(a);
writeln(b);
writeln(c);
readln(a);
readln(b);
readln(c);
d:=b*b-4*a*c;
if d>0 then begin
x:=(-b+sqrt(d))/(2*a);
y:=(-b-sqrt(d))/(2*a);
writeln(x,y);
end;
if d=0 then begin
x:=-b/2*a;
writeln(x);
end;
if d<0 then begin
writeln('Уравнение не имеет корней')
end;
end.
<span><span><span>Закодируй полученную тобой на основе анализа рисунка информацию знаками на бумажном носителе. ... Опиши состав и действия трех кораблей на рисунке Дай имена и заполни таблицу отличительных признаков.</span></span></span>
надеюсь разберетесь что тут к чему, этот кусок кода нужно вставить после строки for i := 1 to n do writeln(r[i]); {Найденный массив}, а после этого вывести измененный массив, сами допишите. Если что-то не понятно смотрите текстовый файл во вложении.