Question

Напишите на Паскале программу. Вводятся 2 целых числа. Если одно из них является квадратом другого, то вывести 1, иначе вывести 0.

Answer 1

var
  a,b: integer;
begin
  writeln('Введите два числа');
  readln(a);
  readln(b);
  if (a*a=b) or (b*b=a) then
     writeln('Вывод 1') else writeln('Вывод 0');
  readln;
end.

{Тест}
Введите два числа
25
5

Вывод 1

Answer 2

//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var (a,b):=ReadInteger2;
if (a*a=b) or (b*b=a) then write(1) else write(0);
end.