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

Напишите программу, упростив следующий фрагмент программы:
if a>b then c:=1;
if a>b then d:=2;
if a<=b then c:=3;
if a<=b then d:=4.
Можно пожалуйста полностью прогу:с

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

Var a, b, c, d: integer;
begin
  read(a, b);
  if a > b then begin
    c := 1;
    d := 2;
  end else begin
    c := 3;
    d := 4;
  end;
  writeln(c = , c,  d = , d);
end.