Advertisement
Varvara_Golovnova

Untitled

Dec 6th, 2024
21
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.28 KB | None | 0 0
  1. var
  2. x,y : array [1..100] of real;
  3. x1,x2,x3,x4,y1,y2,y3,y4,sumx,sumy,sum : real;
  4. n,i,k : longint;
  5. begin
  6. for i:=1 to 3 do
  7. readln(x[i],y[i]);
  8. while (x,y=>3) and (x,y<>) do x:=x+x[i] y:=y+y[i];
  9. if x,y><3 then
  10. writeln('No');
  11. else
  12. writeln('Yes');
  13. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement