- 01.06.2018 10:41
- Информатика
- remove_red_eye 12826
- thumb_up 32
Ответы и объяснения 1
Вот на Паскале
uses Crt;
var x, y: real;
k: integer;
begin
ClrScr;
Write (' X = '); ReadLn (x);
Write (' k = '); ReadLn (k);
if (k=2) then y:=sqr(x)+x+1;
if (k=3) then y:=sqr(x)*x+1;
if (k>3) and (k<7) and (x-1) then y:=1/abs(x+1);
if (k>7) or (k<2) then y:=sqrt(abs(x+k))+sqrt(abs(x-k));
WriteLn (' Y = ', y:8:3);
ReadLn;
end.
- 03.06.2018 00:53
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.