Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 18.05.2017 08:02
- Информатика
- remove_red_eye 4583
- thumb_up 25
Ответы и объяснения 2
Код PascalABC.NET 3.2
Var x:integer;
Begin
Write('x = ');
ReadLn(x);
if x>20 then Write('y = ',(sqr(x)+2) / (sqrt(x-20)))
else Write('При x = ',x,' решений нет');
End.
- 19.05.2017 02:16
- thumb_up 17
Вот программа на языке Pascal
var
x, y: real;
begin
write('x = ');
readln(x);
if x <= 20 then writeln('Function is not defined')
else writeln('y = ', (sqr(x) + 2) / sqrt(x - 20))
end.
- 20.05.2017 22:43
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.