Паскаль!!1Даны катеты прямоугольного треугольника. Найти его периметр
2даны основания и высота равнобедренной трапеции найти ее периметр
3дано расстояние в сантиметрах найти число полных метров в нем

Как бы да :)

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

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:=abs(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.