даны действительные числа a b c удвоить эти числа если (a

Даны действительные числа a b c удвоить эти числа если (a меньше b меньше c) и заменить из безусловными значениями , если это так

Задать свой вопрос
1 ответ

Var a,b,c:real;

Begin

write('Введите a,b,c: ');readln(a,b,c);

if (agt;=b)and(bgt;=c) then

Begin

a:=a*2;

b:=b*2;

c:=c*2;

End

else

Begin

a:=абс(a);

b:=abs(b);

c:=абс(c);

End;

writeln('a = ',a:2:2,' b = ',b:2:2,' c = ',c:2:2);

readln;

End.



, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт