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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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