1. Найдите функцию, которая находит длину гипотенузы прямоугольного треугольника. Примечание: в заданиях на пользовательские функции мы писали свой вариант, но в PHP есть готовая функция 2. Используя функцию генерации случайного числа, сгенерируйте целое число в диапазоне от 45 до 2343. Используя функцию генерации случайного числа, сгенерируйте дробное число в диапазоне от 45 до 234​

Программа написана на PascalABC.NET 3.4.2, сборка 1979 (16.02.2019), но компилироваться должна и на обычном Pascal

не указано, как именно завершать ввод, поэтому сделал завершение словом exit

Кодprogram task31784852; var  number, maxLength, maxNumber: integer;  inputIsTrue: boolean;  inputString, maxLengthString: string; begin  inputIsTrue := false;  maxLength := 0;    Writeln('Напишите exit, чтобы завершить ввод и получить результат');    while inputIsTrue = false do    begin      Readln(inputString);      if Length(inputString) = 0 then        continue;      if inputString = 'exit' then        break;      number := number + 1;      if Length(inputString) > maxLength then        begin          maxLength := Length(inputString);          maxLengthString := inputString;          maxNumber := number;        end;    end;  Writeln('Самая длинная строка с номером ', number, ': ', maxLengthString); end.Проверка

Напишите exit, чтобы завершить ввод и получить результат

a

aa

aaa

lsd

pwpefowpeofkpwef

123462048201180301313031

exit

Самая длинная строка с номером 9: