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

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

Question

Информатика

Тристан

22 мая, 01:17

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

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

+1

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

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

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

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