Натуральное число, на которое заданное число делится без остатка:

паскаль

var a,i: integer;

begin

readln(a);

writeln;

for i: =1 to a do

if (a mod i=0) then writeln (i);

end.

700 иероглифов было в древнем письме

pust' x chaek na pervom ostrove,a y na vtorom.

togda iz uslovia mozhno sostavit' sistemu:

x+y=79;

x-15-12=y+12;

togda y=x-39;

x+(x-39)=79;

x=59;

y=59-39=20.

otvet: 59 chaek na pervom ostrove, 20 na vtorom.