Вопрос по информатике:
Даны три числа . найти большее из них и изменить его знак на противоположный
Пожаловаться
- 14.09.2017 21:37
- Информатика
- remove_red_eye 6024
- thumb_up 45
Ответы и объяснения 1
Var
a,b,c,max: integer;
begin
write ('введите а,b,c через пробел: ');
readln (a,b,c);
if a>b
then
if a>c
then begin max:=a; a:=-a end
else begin max:=c; c:=-c end
else
if b>c
then begin max:=b; b:=-b end
else begin max:=c; c:=-c end;
writeln;
writeln ('max = ',max);
writeln ('a = ',a,', b = ',b,', c = ',c);
end.
---------------------------------------------
Пример:
введите а,b,c через пробел: -5 -2 -4
max = -2
a = -5, b = 2, c = -4
a,b,c,max: integer;
begin
write ('введите а,b,c через пробел: ');
readln (a,b,c);
if a>b
then
if a>c
then begin max:=a; a:=-a end
else begin max:=c; c:=-c end
else
if b>c
then begin max:=b; b:=-b end
else begin max:=c; c:=-c end;
writeln;
writeln ('max = ',max);
writeln ('a = ',a,', b = ',b,', c = ',c);
end.
---------------------------------------------
Пример:
введите а,b,c через пробел: -5 -2 -4
max = -2
a = -5, b = 2, c = -4
Пожаловаться
- 15.09.2017 07:47
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы