быстро, удобно, не тратишь бумагу)))) , конверта не надо и тд
<span>Пример объекта-процесса: 1)каникулы 2)гроза 3)процессор 4)компьютер
</span>4 и 3 вот и всё
Паскаль
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.
begin
var (n, m) := ReadlnInteger2;
var (sm, tm):= ('', integer.MaxValue);
for var i := 1 to n do
begin
var s := ReadlnString;
var t := ReadSeqInteger(m).Sum;
ReadlnString;
if t < tm then
(sm, tm) := (s, t)
end;
Write(sm)
end.
<u>Замечание.</u> Строки могут содержать любые символы., а не только латинские буквы.
Смотри в 9 изи переводишь 500 кбайт в биты и делишь их на 128000 результат буте секунды (просто что бы ты понял как это работает)