SaveText.Ru

yaGenius
  1. program o4eslojno;
  2. var
  3.   i: integer;
  4.   s: integer;
  5.   max: integer;
  6.   yaeblan: integer;
  7.   answer: integer;
  8.   arr: array [1..5] of integer;
  9. begin
  10.   max:= 2;
  11.   answer:= 0;
  12.   yaeblan:= 0;
  13.   for i:=1 to 5 do
  14.   begin
  15.     readln(arr[i]);
  16.   end;
  17.   for i:=1 to 5 do
  18.   begin
  19.     s:=arr[i];
  20.     while (s > 0) do
  21.     begin
  22.       if ((arr[i] mod s) = 0) then
  23.       begin
  24.         yaeblan:= yaeblan + 1;
  25.       end;
  26.       s:= s-1;
  27.     end;
  28.     if (yaeblan > max) then
  29.     begin
  30.       max:= yaeblan;
  31.       answer:= arr[i];
  32.     end;
  33.   yaeblan:= 0;
  34.   end;
  35.   if (answer = 0) then
  36.   begin
  37.     writeln ('у всех одинаковые')
  38.   end
  39.   else
  40.   begin
  41.     writeln ('ответ: ',answer);
  42.   end;
  43. end.

Share with your friends:

Распечатать