Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
0000444455665
27.08.2022 06:55 •
Информатика
Сpascal abc в пяти тестовых опросах мальчик получил оценки.составите алгоритм и программу,которая определит среднее значение оценок, полученных мальчиком в пяти опросах
Показать ответ
Ответ:
natashazlata
12.06.2020 09:54
var
a,sum,i:integer;
begin
for i:=1 to 5 do
begin
readln (a);
sum:=sum+a;
end;
writeln (sum/5);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vladkunets78
14.02.2021 09:19
Сообщение о том, что на эскалаторе повреждена 18-я ступенька, несёт 7 бит информации. сколько ступенек может быть на эскалаторе?...
ДжениферЛюдварг
15.03.2020 14:46
Постройте ориентированный граф автомата мура, кофе. кофе с сахаром стоит 14 рублей, без сахара – 13. автомат принимает купюры по 10 рублей и монеты по 1, 2 и 5 рублей....
SashaGuryewa
26.10.2020 01:46
Как в на языке программирования python вычислить обратный логарифм?...
ПотнаяБабка2000
14.05.2022 23:56
Впоследовательности из n чисел найдите сумму тех которые делятся на 5...
remixzx60
09.01.2023 10:36
Рассчитайте максимальную скорость передачи данных по линии связи с шириной полосы пропускания 100 мгц, если мощность сигнала составляет 62 дб, а мощность шума в линии...
djhvh235
06.07.2021 13:21
Мне нужен програмный код visual studio windows forms для конвертера валют (доллар,тенге,фунты,евро,рубли и так далее)...
Xenia2005
09.11.2021 04:11
Переведите из паскаля в c++ program p; uses crt; const n = 20; var r: real; a: array[1..n] of integer; i: integer; begin clrscr; randomize; r : = 0; for i : = 1 to n do...
rgmabbasov
18.12.2021 10:30
Впрограмі excel графічно знайти рішення рівняння з точністю до 0.01 tg(0.58x+0.1)=x^2...
zhirola2013
29.12.2020 15:43
Написать программу вычисления площади данной фигуры, если значения для а, b вводятся с клавиатуры. три прямоугольника стороны одного (b+3) длина и (2b-a) ширина. стороны...
Волкова24
09.06.2021 20:49
Написать программу на pascal. заполните экран зеленым цветом. введите строку в с клавиатуры. выведите строку в центре экрана вставив в нее посередине строки три *....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a,sum,i:integer;
begin
for i:=1 to 5 do
begin
readln (a);
sum:=sum+a;
end;
writeln (sum/5);
end.