Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Тян255
21.01.2021 13:40 •
Информатика
Pascal с клавиатуры последовательно вводятся 10 чисел найти ср. арифметическое четных чисел
Показать ответ
Ответ:
1NICOLAS1
02.07.2020 17:59
Program D1KPxx18;
uses crt;
var
a,s,k,i:integer;
begin
for i:=1 to 10 do
begin
read(a);
if a mod 2=0 then
begin
s:=s+a;
inc(k);
end;
end;
writeln(s/k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
gleb3003
29.01.2022 06:36
Информатика 9 класс Заранее...
Caflen
21.09.2021 04:16
Информатика! 1. Какое из приведенных утверждений наиболее точно раскрывает смысл понятия «информация»: а) последовательность символов какого-либо алфавита (текст); б) сведения об окружающем...
карина2148
12.10.2022 01:28
К порту USB подключается, мышка, процессор, системный блок...
BirdNumber1
24.05.2023 22:58
Какой вид примет содержащая абсолютную и относительную ссылку формула =$A$1*B1, записанная в ячейку С1, после её копирования в ячейку С2? 1) =$A$1*B2; 2) =$A$1*B1; 3) =$A$2*B1; 4)=$A$2*B2;...
МудрыйКролик
10.01.2023 09:55
4. Исправьте ошибки в следующих операторах. writeln ( 7x+7); a+b := c;...
ghigalskiidani
02.04.2020 23:01
G Scratch 2?Малюнку 3.44?Як віконусться наведений фрагмент алгоритму (мал. 3.46, a)s! Як виконується наведений фрагмент алгоритму (мал. 3.46, б)9. Як виконується наведений фрагмент...
Dlana
02.02.2023 20:24
Исправьте ошибки в вызове процедуры с параметром ЛИНИЯ. А) ЭТО ЛИНИЯ 50 Б) ЛИНИЯ решить это во из теста информатика 5 класс!...
ррррр84
08.12.2020 16:32
Как нарисовать ТОЧКУ в Lazarus....
круасана
30.11.2020 04:54
Визначити значення логічного виразу (a or b) and not (a and b), якщо...
1Юліана1
18.07.2022 01:56
Для удаления символа, расположенного справа от курсора можно клавишей * Shift CapsLoсk Delete Enter Укажите недостающее понятие: Человек –мозг = компьютер -... * Процессор Мышь Сканер...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var
a,s,k,i:integer;
begin
for i:=1 to 10 do
begin
read(a);
if a mod 2=0 then
begin
s:=s+a;
inc(k);
end;
end;
writeln(s/k);
end.