uses crt; type auto=record nom:string; sht:integer; end; var f,g:text; a:array[1..100] of auto; s,s1:string; n,k,i,j,c,p,r:integer; x:auto; begin clrscr; assign(f,'input.txt'); reset(f); assign(g,'output.txt'); rewrite(g); read(f,n); readln(f,s); readln(f,s); k:=1; a[k].nom:=copy(s,1,8); delete(s,1,9); val(s,a[k].sht,c); for i:=2 to n do begin readln(f,s); s1:=copy(s,1,8); delete(s,1,9); val(s,r,c); p:=0; j:=1; while(j<=k) and(p=0) do if s1=a[j].nom then begin p:=j; a[p].sht:=a[p].sht+r end else j:=j+1; if p=0 then begin k:=k+1; a[k].nom:=s1; a[k].sht:=r; end; end; close(f); for i:=1 to k-1 do for j:=i+1 to k do if a[i].sht<a[j].sht then begin x:=a[i]; a[i]:=a[j]; a[j]:=x; end; for i:=1 to k do begin writeln(g,a[i].nom,' ',a[i].sht); writeln(a[i].nom,' ',a[i].sht); end; close(g); end.
У этого термина существуют и другие значения, см. Ньютон.Исаак НьютонIsaac Newton Портрет кисти Кнеллера (1689)Дата рождения:25 декабря 1642 (4 января 1643)Место рождения:Вулсторп, Линкольншир,Королевство АнглияДата смерти:20 марта 1727 (31 марта 1727)(84 года)Место смерти:Кенсингтон, Мидлсекс, Англия,Королевство ВеликобританияСтрана: Королевство Англия Королевство ВеликобританияНаучная сфера:физика, механика, математика,астрономияАльма-матер:Кембриджский университет(Тринити-колледж)ПодписьИсаак Ньютон на ВикискладеСэр Исаа́к Нью́тон (или Ньюто́н[K 1]) (англ. Sir Isaac Newton, 25 декабря 1642 года — 20 марта 1727 года по юлианскому календарю, действовавшему в Англии до 1752 года; или 4 января 1643 года — 31 марта 1727 года погригорианскому календарю) — английский физик, математик, механик и астроном, один из создателей классической физики. Автор фундаментального труда «Математические начала натуральной философии», в котором он изложил закон всемирного тяготения и три закона механики, ставшие основой классической механики. Разработал дифференциальное и интегральное исчисления, теорию цветаи многие другие математические и физические теории.
x, y: real;
begin
readln(x, y);
if x > y then
x := x + y
else
x := x * y;
writeln(x);
end.