|
1.program hsjd;var r,x,y:real;begin read(r,x,y); if abs(sqrt(x*x+y*y)-r)<0.00000001 thenwriteln('yes') else writeln('no');end.2.program hsjd;var now,m,i,a1,h:longint; ans:int64;begin read(a1,h,m); now:=a1;ans:=a1; for i:=2 to m dobegin now:=now+h; ans:=ans*now;end; writeln(ans);end. |
