Помогите, пожалуйста. Написать программу, которая находит среднее арифметическое чисел 1, 2, 4, 8, 16 и т.д. Количество чисел вводится с
5-9 класс
|
клавиатуры.
Язык-Паскаль.
var
sum, n, i: integer;
begin
writeln('Введите кол-во чисел: ');
readln(n);
writeln('Числа: ');
sum := 1;
while i <> n do
begin
write(sum, ' ');
sum := sum * 2;
inc(i);
end;
writeln;
writeln('Среднее арифметическое: ', sum / n);
end.
Другие вопросы из категории
нужно составить программу , печатающее значение true, если указанное выражение является истинным, и fase в противном случае
Главное программу! Будьте добры
000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000
вопроса) в алгоритме расстановки лежаков к первоначальному виду:по два каждым зонтом?
Читайте также
Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 9, или вывести NO, если таких чисел в последовательности нет.
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.
1)Написать программу которая меняет местами числа a и b(линейная и оператор присваивания)
2)Программа проверки существования треугольника по его 3 сторонам
Напишите пожалуйста***