Задать вопрос
14 ноября, 00:40

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

+2
Ответы (1)
  1. 14 ноября, 01:13
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1. Написать программу нахождения суммы чисел от 1 до 24. 2 написать программу печати трех чисел, выведенных с клавиатуры, в порядке ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы