Автор: Anton

Anton — Fri, 27 Nov 2015 03:49:48 +0000

Поправил.
Было:

if (A< =B) and (A<=C) then Writeln(B+C);
if (B<=A) and (B<=C) then Writeln(A+C);
if (C<=A) and (C<=B) then Writeln(A+B);

if (A< =B) and (A<=C) then Writeln(B+C);

if (B<=A) and (B<=C) then Writeln(A+C);

if (C<=A) and (C<=B) then Writeln(A+B);

Стало:

  if (A< =B) and (A<=C) then Writeln(B+C)
  else if (B<=A) and (B<=C) then Writeln(A+C)
  else if (C<=A) and (C<=B) then Writeln(A+B);

if (A< =B) and (A<=C) then Writeln(B+C)

else if (B<=A) and (B<=C) then Writeln(A+C)

else if (C<=A) and (C<=B) then Writeln(A+B);

Автор: olegst1975

olegst1975 — Thu, 26 Nov 2015 21:51:05 +0000

По примеру If12:

[crayon-69d4e222dab03478553750 inline="true" ]
if (A<=B) and (A<=C) then Writeln(B+C)
 else if (B<=A) and (B<=C) then Writeln(A+C)
  else if (C<=A) and (C<=B) then Writeln(A+B);

[crayon-69d4e222dab03478553750 inline="true" ]

if (A<=B) and (A<=C) then Writeln(B+C)

else if (B<=A) and (B<=C) then Writeln(A+C)

else if (C<=A) and (C<=B) then Writeln(A+B);

[/crayon]

Комментарии: Решаем задачи Абрамян на Паскале. If15

Автор: Anton

Автор: olegst1975