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

Question

Информатика

Игнатий

1 января, 08:23

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

+2

Ответы (1)

Знаете ответ?

Алиса · 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