Advertisement
timursaet

Untitled

Mar 28th, 2017
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.36 KB | None | 0 0
  1. var
  2.  n1, n2, sum1, res: integer;
  3. begin
  4.  readln(n1, n2);
  5.   for i := 1 to n1 div 2 do begin
  6.     if n1 mod i = 0 then
  7.          sum1 := sum1 + i;
  8.   end;
  9.   if sum1 = n2 then begin
  10.    for i := 1 to n2 div 2 do begin
  11.       if n2 mod i = 0 then res := res + i;
  12.     end;
  13.     writeln(res = n1)
  14.   end
  15.   else begin
  16.     writeln('Нет совпадений')
  17.   end
  18. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement