profile
Опубликовано 5 лет назад по предмету Информатика от Артем953

1. Написать программу нахождения суммы чисел от 1 до 24. 2 написать программу печати трех чисел, выведенных с клавиатуры, в порядке возрастания

  1. Ответ
    Ответ дан Hasl1337

    1)

     

    var
      i, s: integer;
    begin
      for i := 1 to 24 do s := s + i;
      writeln(s);
    end.

     

    2)

     

    var
      a, b, c : integer;

    procedure swap(var a, b : integer);
      var k : integer;
      begin
        k := a; a := b; b := k;
      end;

    begin
    readln(a, b, c);
      if a > b then swap (a, b);
      if a > c then swap (a, c);
      if b > c then swap (b, c);
      writeln(a, ' ', b, ' ', c);
    end.

Самые новые вопросы