Какое из чисел является наименьшим? 1) e616 2) 3478 3) 111001012 4) 232

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

    readln

end.

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.