Информатика, опубликовано 2018-08-22 23:32:09 by Гость

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

Ответ оставил Гость

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

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.