Вопрос по информатике:
Помогите составить выражение для программы Pascal
Выражение номер 3
НАПИСАТЬ ДЛЯ СТАРОЙ ВЕРСИИ ПРОГРАММЫ
Пожаловаться
- 23.02.2018 08:32
- Информатика
- remove_red_eye 7783
- thumb_up 17
Ответы и объяснения 1
3)
Var
n,m,y:integer;
Begin
Write('n = ');
ReadLn(n);
Write('m = ');
ReadLn(m);
if n >= m then y:=4*n+2*m
else y:=4*n-2*m;
WriteLn('y = ',y);
End.
4)
Var x,B:real;
Begin
Write('x = ');ReadLn(x);
if x < 0 then B:=Tan(x)
else if x > 0 then B:=1/Tan(x);
WriteLn('B = ',B);
End.
Var
n,m,y:integer;
Begin
Write('n = ');
ReadLn(n);
Write('m = ');
ReadLn(m);
if n >= m then y:=4*n+2*m
else y:=4*n-2*m;
WriteLn('y = ',y);
End.
4)
Var x,B:real;
Begin
Write('x = ');ReadLn(x);
if x < 0 then B:=Tan(x)
else if x > 0 then B:=1/Tan(x);
WriteLn('B = ',B);
End.
Пожаловаться
- 24.02.2018 19:29
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы