Информатика, опубликовано 2018-08-22 19:25:30 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.

Пример 1:
a = 289
Yes, 17 * 17 = 289

Пример 2:
a = 250
No

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

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