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

Question

Информатика

Нинелька

17 июля, 22:52

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

+3

Ответы (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