Автор: Anton

Anton — Thu, 26 Nov 2015 03:59:58 +0000

Поддерживаю!
Было:

if A<b then
   begin
     writeln(A);
     writeln(B);
   end
  else
   begin
    A:=A+B;
    B:=A-B;
    A:=A-B;
    writeln(A);
    writeln(B);

if A<b then

begin

writeln(A);

writeln(B);

end

else

begin

A:=A+B;

B:=A-B;

A:=A-B;

writeln(A);

writeln(B);

Стало:

if A>B then
   begin
    A:=A+B;
    B:=A-B;
    A:=A-B;
   end;
  writeln(A);
  writeln(B);

if A>B then

begin

A:=A+B;

B:=A-B;

A:=A-B;

end;

writeln(A);

writeln(B);

Автор: olegst1975

olegst1975 — Wed, 25 Nov 2015 21:59:13 +0000

Предлагаю чуть сократить код:

[crayon-696a46c0c8f8d348339417 inline="true" ]
program If7;
var
  A, B: Real;
begin
  Write('Введите значение A: ');
  Readln(A);
  Write('Введите значение B: ');
  Readln(B);
  if A>B then
   begin
    A:=A+B;
    B:=A-B;
    A:=A-B;
   end;
  writeln(A);
  writeln(B);
end.

[crayon-696a46c0c8f8d348339417 inline="true" ]

program If7;

var

A, B: Real;

begin

Write('Введите значение A: ');

Readln(A);

Write('Введите значение B: ');

Readln(B);

if A>B then

begin

A:=A+B;

B:=A-B;

A:=A-B;

end;

writeln(A);

writeln(B);

end.

[/crayon]

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

Автор: Anton

Автор: olegst1975