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

Question

Информатика

Августа

18 января, 23:03

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

+4

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