ПОСМОТРЕТЬ НА НАЗВАНИЕ,НЕ ЛЕГКО:?
Program;
var a,b,c:real;
begin
readln(a,b,c);
writeln(a+b+c);
end.
Количество пролётов будет равно L/(кв.корень из (2))/M.
Ну это же очень простой вопрос! Шина управления!
Для паскаля:
uses CRT;
var a, b: integer;
begin
write (' Введите длину первого катета ');
read (a);
write (' Введите длину второго катета ');
read (b);
write (' Гипотенуза =');
write (sqr(a)+sqr(b));
end.