Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.04.2018 17:17
- Информатика
- remove_red_eye 10052
- thumb_up 24
Ответы и объяснения 2
var x,f: real;
beginreadln (x);
if x<=0 then f:=x*x else f:=x/10;
writeln ('f=',f);
end.
- 26.04.2018 16:49
- thumb_up 27
var
x: real;
function f (a:real):real;
begin
if a<=0 then f:=sqr(a) else f:=a/10;
end;
begin
write ('Введите x: ');
readln (x);
write ('f(', x, ') = ', f(x) );
end.
- 28.04.2018 00:35
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.