Помогите написать программу в Pascal.Задано число,если оно находится в диапазоне [0,10] то данное число возвести в квадрат, если нет, то вычислить квадратный корень из числа

Ответ

Автор - KonnorKenuey5445

Program zadacha;

var x:integer;

begin

readln(x);

if (x>=0) and (x<=10) then writeln(x*x)

else writeln(sqrt(x));

end.

Объяснение:

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.