Если их значения трех переменных упорядочены по возрастанию или убыванию, то удвоить их

@xxxZLODEUxxx · Регистрация: 18.05.2010

Author24 — интернет-сервис помощи студентам

4. Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных A, B, C.

@Angel-dm · 18.05.2010, 21:31

4 задача:[можно как-то и проще))) ]

Pascal

Program 123;
uses crt;
var
a,b,c,d,e,p: integer;
Begin
clrscr;
Writeln('Введите  А,Б,С:');
readln (a, b, c);
if (a<b) and (b<c) or (a>b) and (b>c)
then
begin
a:=2*a;  b:=2*b;  c:=2*c;
writeln(a,'  ',b,'  ',c);
end
else
begin
d:=(-1)*a;  e:=(-1)*b;   p:=(-1)*c;
writeln(d,'  ',e,'  ',p);
readln;
end;
End.

@xxxZLODEUxxx 0 / 0 / 1 Регистрация: 18.05.2010 Сообщений: 12
		1
	Если их значения трех переменных упорядочены по возрастанию или убыванию, то удвоить их 18.05.2010, 19:01. Показов 1665. Ответов 1 Метки нет (Все метки) 4. Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных A, B, C. 0

	18.05.2010, 21:31

Если их значения трех переменных упорядочены по возрастанию или убыванию, то удвоить их

Решение