Составить решение задачи на языке Паскаль: у=x^2, если x<=0 и у=корень из х, если х<0/

29 Апр 2020 в 19:50
154 +1
0
Ответы
1

program solution;
var x, y: real;
begin
write('Введите значение x:');
readln(x);

if x <= 0 then
y := sqr(x)
else
y := sqrt(x);

writeln('Результат: ', y);
end.

18 Апр 2024 в 13:01
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир