Задача B. "Парад планет"

Полное решение

var n,m,r,g,i:integer;
l,s:real;
begin
read(n,m);
s:=0;
for i:=1 to n do
begin
read(r,g);
if abs(m-g)<abs(360-abs(g-m))then
l:=3.14*r*abs(m-g)/180 else l:=3.14*r*abs(360-abs(g-m))/180;
s:=s+l;
end;
write(s:0:4);
end.

Задача C. "Смешарики в космосе"

Полное решение

var t,n,i,s,k,max,p,w:integer;
a:array [1..100] of integer;
b:array [1..100] of integer;
begin
read(t,n);
s:=0;
for i:=1 to n do 
  begin
  readln(a[i],b[i]);
  s:=s+a[i]*b[i];
  end;
if s<t then write(-1) else
begin
  s:=0;w:=0;
  while s<t do
  begin
  max:=0;
  for i:=1 to n do
  if b[i]>max then begin max:=b[i];k:=i;end;
  p:=0;
  while (s<t)and(p<=a[k]-1) do
  begin
  s:=s+max;
  p:=p+1;
  w:=w+1;
  end;
  b[k]:=-1;
  end;
write(w);
end;
end.