Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Нужно написать программу - даны числа a,b,c.Составить программу вводящую их в убывающем порядке

Ответ оставил Гость

Var  a, b, c: integer;
begin  Writeln(Введите первое число);  readln(a);  Writeln(Введите второе число);  readln(b);  Writeln(Введите третье число);  readln(c);  if (A > B) and (A > C) and (B > C) then Writeln(a, b, c) else   if (B > A) and (B > C) and (A > C) then Writeln(b, a, c) else  if (C > A) and (C > B) and (B > A) Then writeln(c, b, a) else  if (A > B) AND (A > C) AND (C > B) THEN WRITELN(A, C, B) ELSE  if (B > A) AND (B > C) AND (C > A) THEN WRITELN(B, C, A) ELSE  if (C > A) AND (C > B) AND (A > B) THEN WRITELN(C, A, B);end.