Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
kghjg
15.05.2022 21:12 •
Информатика
Составьте программу,по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать).сделайте три варианта программы,используя операторы while,repeat ,for.
Показать ответ
Ответ:
BazikPro
06.10.2020 08:12
Program;
var a,i,sr,k,sum:integer;
k:=0;
sum:=0;
Begin
for i:=1 to 10 do
begin;
read(a);
k:=k+1;
sum:=sum+a;
sr:=sum/k;
end;
write(sr);
End.
Program;
var a,i,k,sum,sr,r:integer;
Begin
k:=0
sum:=0;
r:=0;
repeat
begin;
read(a);
k:=k+1;
sum:=sum+1;
r:=r+1;
until r=10;
sr:=sum/k;
write(sr);
End.
Цикл While подумай сама,уверен у тебя получится
0,0
(0 оценок)
Популярные вопросы: Информатика
gleb21717
26.07.2022 18:26
Решить по c++ условие требуется вычислить разность двух чисел. формат входных данных на вход программе два целых числа a и b (∣∣a∣∣,∣∣b∣∣≤109). формат выходных данных...
anastasiysu77
24.03.2021 19:27
Написать все возможные действия с массивами....
Викуля693
20.08.2021 02:01
Распечатать таблицу значений функции f для x, изменяющегося в интервале от x0 до xk с шагом h. значения x0, xk, h вводятся пользователем....
makrona123
28.04.2023 07:04
1. Отметьте все правильные высказывания о файл-серверных СУБД: обработку данных выполняет сервер; рабочие станции могут быть маломощными; основная нагрузка приходится...
Romaniopatronys
28.04.2023 07:04
уже долго сижу над этими задачами, поняла, что нужна...
kamikot
19.02.2021 13:28
Паскаль дан массив из n элементов. определить количество элементов, которые являются нечетными числами....
Torisan
05.01.2023 04:49
11-тапсырма. Берілген кестені дәптерге толтырыңдар. Қазақ әдебиеті...
kristina150017584969
24.09.2022 22:59
Английский язык 8 класс...
вёдра
05.04.2020 09:07
140. Перечертите в тетрадь фигуры рис. 4. Разделите их на соответствующие частие и заполните пропущенные места в равенствах....
Ven8Kedy
30.01.2021 16:29
очень срлчно 20мин осьалось и мне нужнл здать ите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,i,sr,k,sum:integer;
k:=0;
sum:=0;
Begin
for i:=1 to 10 do
begin;
read(a);
k:=k+1;
sum:=sum+a;
sr:=sum/k;
end;
write(sr);
End.
Program;
var a,i,k,sum,sr,r:integer;
Begin
k:=0
sum:=0;
r:=0;
repeat
begin;
read(a);
k:=k+1;
sum:=sum+1;
r:=r+1;
until r=10;
sr:=sum/k;
write(sr);
End.
Цикл While подумай сама,уверен у тебя получится