Пожаловаться
- 10.02.2018 10:46
- Информатика
- remove_red_eye 13283
- thumb_up 43
Ответы и объяснения 2
Var x,z:real;
Begin
Readln(x);
If x<0 then
Z:=x/3;
If x>=0 then
Z:=2+SQRT(x*x*x);
Writeln(z);
End.
Begin
Readln(x);
If x<0 then
Z:=x/3;
If x>=0 then
Z:=2+SQRT(x*x*x);
Writeln(z);
End.
Пожаловаться
- 11.02.2018 13:57
- thumb_up 22
Var x,z:real;
Begin
write('x = ');
readln(x);
if x<0
then z:=x/3
else z:=2+sqrt(x*x*x);
writeln('z = ',z);
End.
Пример:
x = -18
z = -6
Begin
write('x = ');
readln(x);
if x<0
then z:=x/3
else z:=2+sqrt(x*x*x);
writeln('z = ',z);
End.
Пример:
x = -18
z = -6
Пожаловаться
- 12.02.2018 02:13
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы