Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Vlad8081
07.05.2023 20:04 •
Информатика
Найти сумму только четных чисел среди 10 введённых с клавиатуры
Показать ответ
Ответ:
tapilina92
05.10.2020 12:37
Program prog;
Uses crt;
var i,s,a: integer;
begin
s:=0;
for i:=1 to 10 do
begin
write('NUM',i,' = ');
readln(a);
if ((a mod 2)=0) then s:=s+a;
end;
writeln;
writeln('Sum = ', s);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
ampleev2002
09.02.2022 16:52
Атаулар деген не информатика...
sapunovegor22
20.02.2022 14:20
решить задачу по информатике. В терминологии сетей TCP/IP маской сети называется двоичное число, определяющее, какая часть IP-адреса узла сети относится к адресу сети, а какая – к...
Aigerimmmmmmm
21.12.2022 02:40
1.У исполнителя Бета две команды, которым присвоены номера: 1. прибавь b 2. умножь на 2 (b - неизвестное натуральное число) Выполняя первую из них, Бета увеличивает число на экране...
79521312181
27.02.2022 17:36
Считая, что каждый символ кодируется одним байтом, оцените информационный объем следующего высказывания блеза паскаля : красноречие - это живопись мысли...
GintokiSakata20
01.08.2022 00:07
решить задание по информатике...
Vika32ytr4
12.06.2022 09:22
Практическое задание № 1 Составь программу, в которой будет вычислено значение у:, если: a = 4; b = 3.5; c = 2Код 1a = 4; b = 3.5; c= 2;print((a + 2 + b - 3 + с)/(5 + a + b))уa+2b...
drfast555
26.01.2021 13:34
Солнце скрылось за лесом.мальчик взял удочки и ведёрко.в вазе стоял красивый букет роз.наш класс дружный. надо найти члень...
Начинайко
26.01.2021 13:34
Для измерения атмосферного давления служат • • • • • • • • • , которые бывают ртутными или • • • • • • • • • • . для измерения же давлений, отличающихся от атмосферного, служат •...
10203040502017
26.01.2021 13:34
Иесли не трудно, можно ответы в виде фотографий. 1.докажите,что функция f(x)=e^2x+cosx+x является первообразной функции f(x)=3e^2x-sinx+1 на всей числовой оси. 2.докажите,что функция...
снежок345
26.01.2021 13:34
Подумайте и предложите свои вариант послания разумным существам во вселенной, в котором расскажите о себе, своем отношении к людям, к миру. запишите послание...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Uses crt;
var i,s,a: integer;
begin
s:=0;
for i:=1 to 10 do
begin
write('NUM',i,' = ');
readln(a);
if ((a mod 2)=0) then s:=s+a;
end;
writeln;
writeln('Sum = ', s);
End.