Сделайте программу с цикла while. Найдите среднее арифметическое всех целых чисел от 100 до b.
РауанУченик6класса
2
19.04.2020 16:22
1
Другие вопросы по теме Информатика
всмпасы
12.05.2020 07:27
Zena1112
12.05.2020 07:26
Kkoll322546875
07.10.2020 04:26
mrscom
11.05.2020 14:45
LadyK15
11.05.2020 14:45
leon88
11.05.2020 14:45
sashamakarova30
11.05.2020 14:45
apexXx
28.04.2020 11:05
dedovu6
29.04.2020 19:14
Zeus41
29.04.2020 19:14
Популярные вопросы
- Укажите предложение с грамматической ошибкой (с нарушением синтаксической нормы)....
1 - Разложите на множители: а) (х^2-4х)^2 -16 ; б) 9b^2 - 25c^2 - 3b + 5c...
2 - Особенности представителей отрядов пресмыкающихся миссисипский аллигатор средиземноморская...
1 - Какова природа выталкивающей силы? объясните так как будто я писала сама,а то...
3 - Напишите краткое простое сочинение по яз на тему путешествие (задумка на ваш...
2 - Найдите текст вот начало feed me better is the name of campaign run by tv...
2 - Дилене 24 дильник 6, дилене 40-8 дильник 4, дилене 17+18 дильник 5, дилене 45...
1 - Портрет дубровскага и верейскога (в сокращении)...
2 - Написать сочинение, . с любой цитатой, желательно связанной с . например, цитата:...
1 - Кдоказательствам общности происхождения человека и животных относятся: 1. общность...
1
var s,i,b: integer;
begin
writeln('Введите b: ');
readln(b);
i:=100;
s:=0;
while (i<=b) do
begin
s:=s+i;
i:=i+1;
end;
writeln('Среднее арифметическое целых чисел',
' от 100 до ',b,' равно ',s/(b+1-100));
end.