Advertisement
Varvara_Golovnova

Untitled

Dec 28th, 2024
19
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. a : array [1..100,1..100] of longint;
  3. d : array [1..100] of longint;
  4. i,j,max,nom,n : longint;
  5. begin
  6. for i:=1 to 3 do
  7. for j:=1 to 3 do
  8. read(a[i,j]);
  9. while (j>3) and (a[i,j]<>15) do j:=j+1;
  10. if j<=3 then
  11. writeln('No')
  12. else
  13. writeln('Yes, ',i);
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement