Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kofpik
01.05.2021 00:13 •
Информатика
Составьте программу,по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать).сделайте три варианта программы,используя операторы while,repeat ,for.
Показать ответ
Ответ:
SoniaGradient
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 оценок)
Популярные вопросы: Информатика
geragyy
17.05.2021 00:13
Сколько существует в коде морзе различных последовательностей из точек и тире длина которых равна 5 символов....
Stopnuyk2017
17.05.2021 00:13
Чем отличается канал связи от линии связи...
Маргоht
19.10.2020 19:12
Какой объем видеопамяти в байтах нужен для хранения изображения размером 600x350 пикселей и использующего 4-цветную палитру?...
Медуха
21.05.2023 09:50
Добрый вечер! ответьте на вопросы теста: 1. может ли компьютер быть узлом сети? (если да , то при каких условиях? если нет , то почему? ) 2. как работает сервер-программа электронной...
3523512
21.05.2023 09:50
Неотрицательные целые числа кодируются своим представлением в двоичной системе счисления. укажите наибольшее из таких чисел, под запись которого отведено 3 бита. можно с объяснением?...
Hjk345
14.04.2021 07:39
На соревнованиях по прыжкам в длину результаты трех попыток заносятся в компьютер . найти средний результат и количество прыжков,которые превышают средний результат. решение по программе...
maksimlimanskiy
11.08.2021 03:32
Нужна . как можно записать на языке паскаль выражение: q=cos^b(a+2,53c), где b=a^2+c^2 нужна ваша...
Колегичева2005
22.02.2021 14:44
Звуковая плата реализует 16- тибитное двоичное кодирование аналогового звукового сигнала. это позволяет воспроизводить звук с а) 8 уровнями интенсивности; б) 256 уровнями интенсивности;...
АлинаМирнач
22.02.2021 14:44
Дано 2 числа уменьшить их на 20, если сумма чисел больше 100, в противном случае просто их выдать ( 20 )...
Simps0n
13.06.2022 08:27
Перевести десятичное число 32 в двоичную систему счисления...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.