fork download
copy 
  1. var
  2.  i, n1, n2, sum1, sum2: word;
  3.  begin
  4.      writeln('Vvedite pervoe chislo');
  5.      readln(n1);
  6.      writeln('Vvedite vtoroe chislo');
  7.      readln(n2);
  8.          for i := 1 to n1 div 2 do begin
  9.             if n1 mod i = 0 then sum1 := sum1 + i
  10.          end;
  11.      if sum1 = n2 then begin
  12.      writeln('дружественные');
  13.       end
  14.       else begin
  15.         writeln('не дружественные')
  16.       end;
  17.      readln;
  18.     end.
Success #stdin #stdout 0s 288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Vvedite pervoe chislo
Vvedite vtoroe chislo
дружественные
https://ideone.com/OqvLXp
language:
Pascal (fpc 3.0.4)
created:
7 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!