Написать программу

Пользователь вводит число, проверить извлекается ли из это числа корень

Question

Информатика

Славуха

22 апреля, 15:42

Написать программу

Пользователь вводит число, проверить извлекается ли из это числа корень

+3

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

Пример:

a = 169

Yes, 13 * 13 = 169

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

Написать программу

Пользователь вводит число, проверить извлекается ли из это числа корень