Информатика, опубликовано 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
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на