Упорядочить по убыванию суммы кодов: 25м, метр, метр, Метр, МЕТР, Смотр, 30м.
О смотр, метр, метр, Метр, МЕТР, 25м, 30м
O
Смотр, метр, Метр, метр, МЕТР, 25м, 30м
О 30м, 25м, метр, Метр, метр, МЕТР, смотр,
Осмотр, метр, Метр, метр, МЕТР, 30м, 25м
Смотр, метр, метр, Метр, МЕТР, 30м, 25м
пропустить​

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.

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;

одновременно нажать alt и 3 (на цифровой клавиатуре с права)

♥

такой адресс получается