Turbo Pascal

[ROMA2PVT]

uses crt;
var 
   a,b,n,i:integer;
begin
    clrscr;
    write('Введите a: ');
    readln(a);
    write('Введите b: ');
    readln(b);
     for i:=100 to 999 do
       if (i mod 10=b) and (i mod 10+i div 100+i div 10 mod 10=a) then
       inc(n);
    writeln('Количество чисел: ',n);
end.

Первая.

[ROMA2PVT]

2)Задание: Введите три числа.Если они могут быть длинами сторон разностороннего тупоугольного треугольника,выведите их в порядке убывания и вычислите площадь полученного треугольника.
3)Пусть даны координаты 3х токек на плоскости.Если они могут быть вершинами равнобедренного остроугольного треугольника,вычислите его площадь.Длины сторон и площадь вывести в порядке возврастания значений!

Ты что издеваешься.Это чистая геометрия.И искать надо уметь.http://www.cyberforum.ru/pascal/thread34058.html вот оно ваше задание.

If (a < 90)and (b < 90) and(c < 90) then
If (a=b) or (b=c) or (a=c) then
writeln('равнобедренный остроугольный треугольник') а вот так второе делайте,
и далее вычисляете площать его,и выводите значения по возрастанию как в той программе.И всё делов то.

[Артём555]

Спасибо большое!

[ROMA2PVT]

для спасибо внизу есть висы.