ДАЮ МНОГО БАЛЛОВ! 9 класс. Помогите пожалуйста сделать номер 12 пункты а,г и номер 13
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
//Задание 12.а.
//Сумма первых n натуральных чисел
var s := 0;
var n := ReadlnInteger(введите n);
for var i := 1 to n do s := s + i;
Println( Cумма первых, n, =, s);
//Задание 12.г.
//Сумма всех двузначных
s := 0;
for var i := 10 to 99 do s := s + i;
Println( Cумма всех двузначных, =, s);
//Задание 13.
//Получаем 10 сл. чисел, выводим на экран
// и получаем среднее арифметическое
var a := ArrRandom(10, 1, 20);
println(a);
println(Среднее арифметическое , a.Average)
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
