Пожаловаться
- 17.05.2017 23:43
- Информатика
- remove_red_eye 19996
- thumb_up 33
Ответы и объяснения 1
Var
x:real;
Begin
Write('x = ');
ReadLn(x);
if 1
if (-1<=x)and(x<=1) then x:=1
else x:=x*x;
Write('y = ',x);
End.
Var
X,Y,C:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ');
ReadLn(y);
if x
c:=x+y;
y:=x*y;
x:=c;
End
else
Begin
c:=x+y;
x:=x*y;
y:=c
End;
WriteLn('x = ',x);
WriteLn('y = ',y);
End.
x:real;
Begin
Write('x = ');
ReadLn(x);
if 1
if (-1<=x)and(x<=1) then x:=1
else x:=x*x;
Write('y = ',x);
End.
Var
X,Y,C:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ');
ReadLn(y);
if x
c:=x+y;
y:=x*y;
x:=c;
End
else
Begin
c:=x+y;
x:=x*y;
y:=c
End;
WriteLn('x = ',x);
WriteLn('y = ',y);
End.
Пожаловаться
- 18.05.2017 22:37
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы