Программа Паскаль. 1.Запрашивает 3 числа и проверяет,является ли их сумма квадратом какого-либо целого числа.2.Запрашивает 3 числа и проверяет,является ли их среднее геометрическое целым числом.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №1 begin   var a,b,c:integer;   Write('Введите три натуральных числа: '); Read(a,b,c);   var s:=a+b+c;   var k:=Trunc(sqrt(s));   if k*k=s then Writeln('Сумма чисел - квадрат ',k)   else Writeln('Сумма чисел не является квадратом целого') end. Тестовое решение Введите три натуральных числа: 13 4 8 Сумма чисел - квадрат 5 // PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2 begin   var a,b,c:integer;   Write('Введите три натуральных числа: '); Read(a,b,c);   var s:=power(a*b*c,1/3);   if s=int(s) then Writeln('Среднее геометрическое - целое число')   else Writeln('Среднее геометрическое - нецелое число') end. Тестовое решение Введите три натуральных числа: 16 8 15 Среднее геометрическое - нецелое число