Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Dima25688
15.01.2022 17:25 •
Информатика
Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вво- дятся с клавиатуры; a> =200);
Показать ответ
Ответ:
ульяна7346
02.10.2020 04:09
Var
A,i:integer;
S:integer;
Sr:real;
b:integer;
begin
writeln('Введите а:');
readln(A);
b:=200;
for i:=A to 200 do
begin
S:=B+i;
End;
Sr:=S/A;
writeln('Среднее значение:',sr);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sirghiina
19.10.2020 20:41
X 10 теңсіздігін қанағаттандыратын ең кіші натурал жұп санды тап 120...
255615
11.03.2023 07:07
3класс информатика все упр...
limon4ikru
04.06.2021 02:58
Комек тесіндерші өтініш...
sveta760
05.08.2022 09:13
4. Асет создал таблицу для расчета стоимости канцелярских товаров [E 02 =B2C2 А B. С D E цена количество СТОИМОСТЬ 1 товар 2 тетрадь 3 альбом 35 10 350 1 1 50 1 25 3 4 ручка...
Аннабель0Свит
22.06.2021 22:02
4) Даны ящики, которые вмещают 5 кг, 10 кг и 15 кг яблок. Необхо- димо выяснить, сколько ящиков разного размера понадобится для того, чтобы распределить 100 кг яблок....
игорь800
27.10.2021 11:49
1)Если предполагается, что функция не будет возвращать в вызывающую программу какой-либо результат, то ее вызов осуществляется: Что включает в себя прототип функции? Базовыми...
nshxhdnjdbook
31.08.2022 03:10
Очень нужно до 15:00 сделать,из урока понял что нужно внести команду mode,это массив,язык Паскаль...
finnolol
05.06.2020 13:09
числа, крать ные рат 3) Из списка второго упражнения выведите на экран все числа меньше 7. Используйте оператор break. 10 на 15 кг абсок необхо-...
krav4enkom
30.07.2022 15:31
Установите соответствие: А)устройство, в котором при выключении питания все данные стираются Б)количество тактов обработки данных за 1 секунду В)интегральная характеристика,...
Zx265
28.03.2020 07:30
представления данных путём размещения их на пересечении строки столбцов....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A,i:integer;
S:integer;
Sr:real;
b:integer;
begin
writeln('Введите а:');
readln(A);
b:=200;
for i:=A to 200 do
begin
S:=B+i;
End;
Sr:=S/A;
writeln('Среднее значение:',sr);
end.