Паскаль!!1Даны катеты прямоугольного треугольника. Отыскать его периметр2даны основания и вышина

да

2 сделал, с 3 маюсь, еще мин 10+

п.с. насчет трапеции которая

3)uses crt;var l,m:integer;beginwrite('Введите расстояние в см ');readln(l);m:=l div 100;write('Кол-во метров в ',l,' см равно ',m,'м');end.

проверь третье так либо нет

Да, верно третью сделал)

Bristel, зачем для тебя модуль crt в этой задачке? В ней не употребляется ни одной функции из этого модуля.

мне удобней водить данные в отдельном окне так как стандартное меня бесит и я люблю непрерывно разукрашивать фон и текст но в данной задачке я этого не делал

Я ведь и разговариваю про данную задачку, излишняя строка)

))

Program Vby_1;
uses crt;
var a,b,c:real;
begin
  writeln('***   Alphaues is thinking...   ***');
  writeln('Ok, введите катеты: ');
  write('a= ');readln(a);
  write('b= ');readln(b);
  writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.

Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
  writeln('***   Alphaues is thinking...   ***');
  writeln('Ok, введите данные: ');
  write('Одно основание = ');readln(a);
  write('Иное основание = ');readln(b);
  write('Вышина = ');readln(h);
  t:=абс(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.

Program Vby_3;
uses crt;
var s:integer;
begin
  writeln('***   Alphaues is thinking...   ***');
  write('Ok, введите расстояние в сантиметрах: '); readln(s);
  write('Число полных метров = ',s div 100);
end.

В файле все 3 задачки.