- 20.06.2018 14:17
- Информатика
- remove_red_eye 11340
- thumb_up 10
Ответы и объяснения 1
Const
C = -5;
M = 10;
Step = 1.5;
Var x : Real;
Begin
x:=C;
Repeat
Write('x = ',x:6:2,' L = ');
If x>5 then Writeln((x+x*x+x*x*x)/10:6:2) else
If x<-1 then Writeln(sqr(sin(x))+abs(x):6:2) else
Writeln(100:6);
x:=x+Step;
Until x>M;
end.
- 22.06.2018 00:11
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.