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

If15. Даны три числа. Найти сумму двух наибольших из них.

Решение:

program If5;
var
  A, B, C: Real;
begin
  Write('Введите первое число: ');
  Readln (A);

  Write('Введите второе число: ');
  Readln (B);

  Write('Введите третье число: ');
  Readln (C);

  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);

end.

program If5;

var

A, B, C: Real;

begin

Write('Введите первое число: ');

Readln (A);

Write('Введите второе число: ');

Readln (B);

Write('Введите третье число: ');

Readln (C);

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);

end.

Другие задачи из раздела If можно посмотреть здесь.

Комментарии 2

По примеру If12:

[crayon-673da9f977b82879773815 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-673da9f977b82879773815 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]

Ответить

Anton

27.11.2015 в 07:49

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

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);

1
2
3

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);

1
2
3

  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);

Ответить

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

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ