Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Agent345
07.02.2022 02:36 •
Информатика
Составьте программу,по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать).сделайте три варианта программы,используя операторы while,repeat ,for.
Показать ответ
Ответ:
caros14
03.10.2020 15:26
Var a, b:real;
I:integer;
begin
I:=1;
b:=0;
while I <> 10 do
begin
read (a);
b:=b+a;
I:=I+1;
end;
b:=b/10;
writeln (b);
end.
var a, b:real;
I:integer;
begin
I:=0;
b:=0;
repeat
read (a);
b:=b+a;
I:=I+1;
until I=10;
b:=b/10;
writeln (b);
end.
var a, b:real;
I:integer;
begin
b:=0;
for I:=1 do 10 to
begin
read (a);
b:=b+a;
I:=I+1;
end;
b:=b/10;
writeln (b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
китии2
06.08.2020 14:41
Какие системы счисления не используются специалистами для общения с ЭВМ...
андрей2149
14.09.2021 23:09
сделать 3 вопроса по MS-DOS 1. Как в MS-DOS вывести список всех файлов, упорядоченный по размеру файлов?2. Вывести список всех файлов с именами начинающимися на букву А, упорядоченных...
bagaeva02
16.03.2020 11:23
Выбери верный ответ. www.site.nic.ru — цифровая адресациядоменная система имён...
tinita15
20.12.2021 08:27
Дан одномерный массив С, размерностью 5. Элементы массива – это целые числа из промежутка [0;50]. Напишите программу, вычисляющую сумму элементов массива, которые больше 4 и кратны...
kika007
09.07.2022 00:11
ответьте с 1-8 вопрос...
денисдениска
01.02.2020 19:04
Написати твір на 1-2 сторінки Від чого залежить мій власний вибір Терміново!...
bohdan4ever
29.01.2021 11:50
Укажите прилагательное(-ые), в котором(-ых) на месте пропуска пишется две буквы Н. 1) каме...ая ограда 2) гости...ый двор 3) овчи...ый полушубок 4) орга...ая музыка...
BOTAN1337228101
23.06.2020 07:43
Задание 20 В XIV-XV веках в Европейских государствах и в России шёл процесс централизации, который сопровождался династическими войнами. Используя исторически знания, приведите...
NinjaKiller1337
21.11.2021 19:15
Погите сто раз загрузил никто не ‼️‼️‼️...
Timyr123678
02.11.2021 00:55
Первая труба наполняет бак за 39 минут, а вторая труба наполняет такой же бак за 41 минуту. Известно, что одна из труб пропускает в минуту на 4 л воды больше, чем другая. Сколько...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
I:integer;
begin
I:=1;
b:=0;
while I <> 10 do
begin
read (a);
b:=b+a;
I:=I+1;
end;
b:=b/10;
writeln (b);
end.
var a, b:real;
I:integer;
begin
I:=0;
b:=0;
repeat
read (a);
b:=b+a;
I:=I+1;
until I=10;
b:=b/10;
writeln (b);
end.
var a, b:real;
I:integer;
begin
b:=0;
for I:=1 do 10 to
begin
read (a);
b:=b+a;
I:=I+1;
end;
b:=b/10;
writeln (b);
end.