fork download 
  1. program ideone;
  2. Var a: array [1..10] of byte;
  3. i,x,y,z, pos1, pos2: byte;
  4. Begin
  5.  
  6. ReadLn(x,y);
  7. Readln(pos1, pos2);
  8. if x+y>=10 then WriteLn ('Проверьте известные цифры') 
  9. else
  10. if pos1=pos2 then WriteLn('Числа не могут быть в одной ячейке')
  11. else
  12. begin 
  13. z:=10-x-y;
  14. For i:=1 to 10 do
  15. a[i]:=z;
  16. for i:=1 to 10 do begin
  17. Case pos1 of
  18. 1,4,7,10: begin a[1]:=x; a[4]:=x; a[7]:=x; a[10]:=x; end;
  19. 2,5,8: begin a[2]:=x; a[5]:=x; a[8]:=x; end;
  20. 3,6,9: begin a[3]:=x; a[6]:=x; a[9]:=x; end;
  21. end;
  22. Case pos2 of
  23. 1,4,7,10: begin a[1]:=y; a[4]:=y; a[7]:=y; a[10]:=y; end;
  24. 2,5,8: begin a[2]:=y; a[5]:=y; a[8]:=y; end;
  25. 3,6,9: begin a[3]:=y; a[6]:=y; a[9]:=y; end;
  26. end;
  27. end;
  28. For i:=1 to 10 do
  29. Write(a[i]:3);
  30. readln;
  31. end;
  32. end.
Success #stdin #stdout 0s 232KB
comments (?)
stdin 
1 6 
4 10
stdout 
  6  3  3  6  3  3  6  3  3  6
https://ideone.com/72jgUl
1 6
4 10
language:
Pascal (fpc 3.0.4)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!