Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
erdgfgh
01.02.2021 18:18 •
Информатика
Вчисловой последовательности вводимость клавиатуры, вычислить количество чисел кратных 6
Показать ответ
Ответ:
adv00
06.10.2020 00:54
Program vv;
var n,a,i,s:integer;
begin
write('введите количество элементов последовательности ');
read(n);
s:=0;
for i:=1 to n do
begin
if a mod 6=0 then s:=s+1;
end ;
write('сумма равна',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Буторин1306
09.05.2023 06:23
Составьте программу, которая из названий волга, днепр, нёман, енисей выводит только названия рек, которые протекают по территории беларуси...
nastyankazau112
07.07.2022 23:24
Pythonчтобы поднять на n-й этаж m-этажного дома новый холодильник, витя вызвал бригаду грузчиков. оплата работы грузчиков производится так: за подъем холодильника на один этаж...
Sayat2007
01.06.2022 16:00
Практикум n 2 «формирование массивов». вариант 1.• составить программу к решению : «сформировать массив из nэлементов: 5 0 5 0..».• составить программу к решению : «сформировать...
Natasha1146
06.08.2021 07:29
Вчем const n=20; type vector= array[1..n] of integer; вычислить для вектора x: произведение всех положительных элементов массива, которые кратны 17 я сделала так , но все время...
vikaolkhovskay
29.06.2022 21:42
Решить на c++, умоляю, : дан массив из n элементов и число a. необходимо найти сумму элементов, больших данного a. формат входных данных с клавиатуры вводится натуральное число...
minyaaaaaaaaaaaaaaa
22.04.2023 23:09
Перегляньте підручник з географії для 7 класу. Запропонуйте, як таблиці із цьо- rо підручника доцільно опрацювати а табличному процесорі. Поясніть чому....
Daniljj1
05.08.2020 16:22
1.Что такое видеозапись? 2.Как обработать видеозапись?3.Что такое редактор VideoPad?4.Какую кнопку нужно нажать для предварительногопросмотра видеозаписи?5.Почему мы записываем...
armanshinaelin
07.09.2020 11:16
115. В некотором каталоге хранился файл Днепр.jpg. В этом каталоге создали подкаталог с именем РЕКИ и переме-стили в него файл Днепр.jpg, после чего полное имяфайла сталоE:\ГЕОГРАФИЯ...
missksyushase
07.11.2020 22:08
Главные (все) персонажи вечера на хуторе близ диканьки ?...
astimorget
07.11.2020 22:08
Краткое содержание рассказа юрия яковлева у человека должна быть собака (для читательского дневника)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,a,i,s:integer;
begin
write('введите количество элементов последовательности ');
read(n);
s:=0;
for i:=1 to n do
begin
if a mod 6=0 then s:=s+1;
end ;
write('сумма равна',s);
end.