Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
yanvoronovich
14.05.2021 06:54 •
Информатика
Напишите программу на языке программирования pascal. дано натуральное число n, целые числа а₁, а₂, .вычислить сумму чисел а₁, а₂, , кратных 3.
Показать ответ
Ответ:
Ayazoro2
01.09.2020 01:22
Var n,i,k,s : integer;
Begin
s:=0;
Write('N ? '); Readln(n);
Writeln('Вводите a1 a2 ... aN');
For i:=1 to n do
Begin
Readln(k);
If k mod 3 = 0 then s:=s+k;
end;
Writeln('Сумма кратных трём: ',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
maks312017
27.02.2021 06:03
Есть два цикла, как слить их в один? for i in range(1,n): for j in range(n-1-i, -1, -1): print(a[i][j], end= ) for i in range(n-1): for j in range(i+1): print(a[i][j], end= )...
EHOT229
14.01.2020 18:23
Составить программу для вычисления пройденного телом пути за время t , если тело движется прямолинейно с ускорением a (формула для вычисления s=at^2/2)...
EmiliKotik123
13.08.2020 13:14
Сколько различных решений имеет уравнение: ab v bc =истина...
peterburg1
26.03.2022 15:02
Усемиклассника имеется коллекция из 500 календариков. сколько бит потребуется для ему для присвоения каждому календарику индивидуального кода...
OlgaKotova200
07.04.2023 17:20
Напишите результат следующего логического выражения а+в*1+с*0...
Kirill1233341
21.05.2020 17:55
Паскальцикл с параметромдана блок-схема, написать программу на языке паскаляпример: [tex]1 + \frac{1}{2} + \frac{1}{3} + \frac{1}{4} + \frac{1}{5} + \frac{1}{6} + \frac{1}{7}...
gghggggg1
12.04.2021 15:45
В) 63,5 N = 2 формуласы бойынша нені анықтауға болады? А) алфавит қуаттылығын Ә) мәтіндегі символдар санын Б) бір символдың ақпараттық салмағын B) мәтіндегі сөздер санын . І –...
madievazarina
11.01.2020 23:26
1. Запиши в тетрадь устройства, которые относятся к внутренней памяти компьютера (полное описание устройства): RAM, Кеш, ROM. 2. Запиши в тетрадь устройства, которые относятся...
mariamarkova609
23.01.2020 04:17
В каких областях человеческой деятельности используется компьютер...
tvzhanna80
27.04.2021 02:21
Как иначе называют национальный праздник Наурыз. День просвещенияВеличие народаДень плодородияВеликий народный праздник...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
s:=0;
Write('N ? '); Readln(n);
Writeln('Вводите a1 a2 ... aN');
For i:=1 to n do
Begin
Readln(k);
If k mod 3 = 0 then s:=s+k;
end;
Writeln('Сумма кратных трём: ',s);
end.