- 21.03.2018 02:36
- Информатика
- remove_red_eye 3783
- thumb_up 42
Ответы и объяснения 1
Var x:integer;
y:real;
begin
for x:=-5 to 5 do
if (x>1) and (x<3) then begin y:=cos(x); writeln(x,' ',y:2:2); end
else if x<1 then begin y:=sqr(x); writeln(x,' ',y); end
else begin y:=ln(x); writeln(x,' ',y:2:2); end;
end.
- 22.03.2018 04:18
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.