Найти среднее арифметическое чисел от 1 до n,n-вводит пользователь

Ответы

Ram543 28.07.2020 10:25

Var n:integer;
sr:real;
i,s:integer;
begin
writeln('n=');
readln(n);
s:=0;
for i:= 1 to n do
begin
s:=s+i;
sr:=s/n;
end;
writeln('sr=',sr);
readln;
end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

belat1 15.03.2019 05:10

Паскаль составьте программу, которая заполняет массив 10-ю случайными целыми числами в диапазоне [1..20] и выводит на экран элементы массива в нечетными значениями....

МегамозгМозг 15.03.2019 05:00

5класс т. №22 придумайте меню для кафе сластена...

ilinet 26.02.2021 12:52

Чему равно значение выводимой на печать переменной? int temp = 0; for (int i = 1; i = 1000; i++) { temp = (temp + 1) * temp; } cout temp; }...

Germionochka 26.02.2021 12:53

Какой алгоритм реализован в программе: int temp = 0; for (int i = 1; i 10; i++) { int a; cin a; if (a temp) { temp = a; ...

Danuaple 27.05.2020 20:02

Я тупой по жизни. Киньте готовий проект https://www.lego.com/cdn/cs/set/assets/blt9d825847cfab5c16/EV3D4.pdf в лего майндшторм...

арина1494 08.04.2020 01:21

Задание 1 ( ). Подготовьте доклад средствами текстового редактора Microsoft Word. Придерживайтесь правил оформления деловой документации. Предусмотрите наличие титульной...

ilya20063 08.04.2020 01:22

Задание 1 ( ). Дайте развернутые ответы на во Зачем нужны законодательные акты в информационной сфере? ( ) Какой закон регламентирует права авторов программ и баз...

belozerovanastya 08.04.2020 01:23

Запиши число 13643 в развёрнутом виде, начиная со старшего разряда....

LUKARIN 27.06.2019 11:10

4.для чего используют мастер подстановок? а)для создания нового поля в таблице. б)для создания новых таблиц. в)для добавления значений полей из других таблиц или...

moiseenkooo 21.09.2020 03:17

Назначение и основные характеристики языка программирования С...

Найти среднее арифметическое чисел от 1 до n,n-вводит пользователь

Популярные вопросы