Подскажите пожалуйста , очень важно.

@Goofy · Регистрация: 10.01.2013

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

как решить такую задачу :

Вводится 3 числа , нужно распечатать их по возрастанию.

Напишите пожалуйста , очень нужна помошь.

@denisneposeda · 20.10.2010, 16:31

GooFy, вот через условие:

Pascal

uses crt;
var
a,b,c: integer;
begin
clrscr;
write ('vvedite 4islo A: ');
readln (a);
write ('vvedite 4islo B: ');
readln (b);
write ('vvedite 4islo C: ');
readln (c);
if ((c>b) and (b>a)) or ((a=b) and (b=c))
then writeln (a,' ',b,' ',c)
else if (b>c) and (c>a)
then writeln (a,' ',c,' ',b)
else if (a>c) and (c>b)
then writeln (b,' ',c,' ',a)
else if (c>a) and (a>b)
then writeln (b,' ',a,' ',c)
else if (a>b) and (b>c)
then writeln (c,' ',b,' ',a)
else writeln (c,' ',a,' ',b);
end.

@Goofy 0 / 0 / 0 Регистрация: 10.01.2013 Сообщений: 5
		1
	Подскажите пожалуйста , очень важно. 20.10.2010, 14:35. Показов 1051. Ответов 1 Метки нет (Все метки) как решить такую задачу : Вводится 3 числа , нужно распечатать их по возрастанию. Напишите пожалуйста , очень нужна помошь. 0

	20.10.2010, 16:31

Подскажите пожалуйста , очень важно.

Решение