Вгруппе «виагра» поют три девушки: блондинка, рыжая и брюнетка. в клипе «бриллианты» девушки одеты в белое, красное и черное платья. интересно, - заметила брюнетка, - что цвета наших с вами волос не соответствуют нашим платьям. - а ведь верно, но мне подошло бы твое платье, - подтвердила девушка в белом платье. в какое платье была одета каждая из девушек?

Вбелом платье рыжая девушка, в красном -- брюнетка, в черном -- блондинка. брюнетке отвечает девушка в белом, значит не блондинка. если девушке в белом подошло бы платье в красном, значит, в красном брюнетка. ну, блондинка, с ней всё понятно.

program xxx;

    var i, k, d, e, s : integer;

begin

  k: =0;

  for i: = 10 to 99 do

    begin

          d: = i div 10;

          e: = i mod 10;

          s: =d + e;

          if i mod s = 0 then k: =k+1

    end;

    write ('кол-во чисел которые делятся на сумму своих цифр=', k);

    readln

end.

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.