1) Напишите полный текст программы, вычисляющей значение гипотенузы по известным катетам....

Question

1) Напишите полный текст программы, вычисляющей значение гипотенузы по известным катетам. Значение катетов задаются с помощью команды Readln.
2) Напишите полный текст программы, которая переводить значение скорости V( вводимого оператором Readln) ы размерности км/чач в размерность м/сек
Помогите пожалуйста очень сильно нужно

Answer 1

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a,b:real;
  Readln(a,b);
  Writeln(sqrt(a*a+b*b))
end.

Тестовое решение
5.35 3.8
6.56220237420334

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var v:real;
  Readln(v); Writeln(v*1000/3600)
end.

Тестовое решение
76.43
21.2305555555556

Comments

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

---

Пожалуйста, но достаточно было и кнопки)