Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • 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.

    • Автор:

      aresio
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years