1) напишите полный текст программы, вычисляющей значение гипотенузы по известным катетам. значение катетов с команды readln. 2) напишите полный текст программы, которая переводить значение скорости v( вводимого оператором readln) ы размерности км/чач в размерность м/сек сильно нужно
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