rox_prit.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 17 行

program prietene;
var x,y,i,j,a,b,s1,s2,k : integer;
begin
write('a=');readln(a);
write('b=');readln(b);
  for i:=a to b-1 do
    for j:=i+1 to b do
    begin
    s1:=0;
    s2:=0;
    for k:=1 to i do
     if i mod k=0 then s1:=s1+1;
    for k:=1 to j do
     if j mod k=0 then s2:=s2+1;
if s1=s2 then write('prietene',i,j);
    end;
end.