Дана последовательность чисел в странном формате: у каждого числа сначала записано количество цифр в этом числе, а потом через пробел - сами цифры. последовательность заканчивается числом 0. в результате нужно вывести сначала количество чисел в последовательности, а потом - сами числа. количество чисел в последовательности не превышает 1000. в числах - не более 4-х знаков. пример 1 ввод вывод 2 2 7 3 3 5 1 0 2 27 351 пример 2 ввод вывод 1 1 0 1 1
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите через пробел или Enter стороны:');
if a>c then Swap(a,c);
if b>c then Swap(b,c);
if c*c=a*a+b*b then Writeln('Треугольник прямоугольный')
else Writeln('Треугольник не прямоугольный')
end.
Пример
Введите через пробел или Enter стороны: 6 8 10
Треугольник прямоугольный