Дамп всех задач

2017-05-22 13:29:43 +03:00
parent b970626fef
commit 93746b05d7
173 changed files with 2505 additions and 0 deletions
--- a/задачи/2.pas
+++ b/задачи/2.pas
@@ -0,0 +1,14 @@
+var 
+  i, j, b:integer;
+  mas:array[0..9] of integer;
+  
+begin
+  for i:=0 to 9 do mas[i]:=Random(5);
+  println(mas);
+  for i:=0 to 9 do begin
+  for j:=i+1 to 8 do begin
+  if mas[j] = mas[i] then b:=1;
+  end;
+  end;
+  if b=1 then print('yes') else print('no');
+  end.