Написать программу в паскале вводим число, проверить извлекается из него корень?

Question

Информатика

Виктора

27 августа, 10:57

Написать программу в паскале вводим число, проверить извлекается из него корень?

+2

Ответы (1)

Знаете ответ на вопрос?

Радим · Answer 1

Var a, b:integer;

begin

write ('a = ') ;

readln (a) ;

b:=round (sqrt (a)) ;

if b*b=a

then writeln ('Yes, ', b,' * ', b,' = ', a)

else writeln ('No') ;

end.

Пример 1:

a = 289

Yes, 17 * 17 = 289

Пример 2:

a = 250

No