• Помогите пожалуйста написать программу в Паскаль!
    1) Вывести n целых случайных чисел из промежутка от 0 до 10
    2)Вычислить сумму чисел из промежутка от 1 до 10

Ответы 2

  • 1)var n,i:integer;beginreadln(n);for i:=1 to n do write(random(11),' ');end.Пример:105 2 9 5 7 2 10 0 1 6 2.var s,i:integer;begins:=0;for i:=1 to 10 do s:=s+i;write('s = ',s);end.Результат:s = 55
  • // PascalABC.NET 3.3, сборка 1573 от 04.11.2017// Внимание! Если программа не работает, обновите версию!1)begin  SeqRandom(Readinteger,0,10).Printlnend.Пример137 5 6 8 9 9 4 5 7 3 1 7 102)begin  Writeln(1.To(10).Sum)end.Результат55
    • Автор:

      brian2j6t
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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