Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Dexter8122
07.10.2021 17:17 •
Информатика
Паскаль! дано n чисел. найти а) сумму цифр каждого из них; б) количество чисел, сумма цифр которых кратна 3. повторить системы счисления
Показать ответ
Ответ:
tetyana5
15.09.2020 12:24
Var n,a,i,s,k:integer;
begin
write('n='); readln(n);
k:=0;
for i:=1 to n do
begin
write('a='); readln(a);
s:=0;
while a<>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln(' sum=',s);
if s mod 3 =0 then k:=k+1;
end;
writeln('k=',k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Alinatkd
09.02.2020 22:16
разработать,ввести в ЭВМ и отладить программу для расчёта количества гектаров которое нудно убрать кадждой из студенческих групп если известна общая площадь поля и...
DmitriiSh197
01.09.2022 05:16
сделайте с кругами эйлера...
наталья732
24.02.2022 23:17
Статья, набранная на компьютере, содержит 12 страниц, на каждой странице 96 строк. информационный объем статьи составляет 90кбайт. определите количество символов в...
nikitaknss
17.04.2023 01:14
Как ввести пятизначное число и сдвинуть его циклически влево на 2 разряда в python...
69devil69
07.01.2020 15:31
На производстве работает автоматическая система информирования склада о необходимости доставки в цех определенных групп расходных материалов. система устроена так,...
molokomo
07.01.2020 15:31
Маской подсети называется 32-разрядное двоичное число, которое определяет, какая часть ip-адреса компьютера относится к адресу сети, а какая часть ip-адреса определяет...
mia73
17.01.2020 09:05
Дано: n ,a[n] определить какой элемент массива мин или макс встречается раньше....
Gasdsa
02.11.2021 16:05
Скода цезаря закодируйте слово парта с сдвигом алфавита вправо на 4 позиции...
София5778
02.11.2021 16:05
Гулливер в стране лилипутов увидел интересную игру, похожую на шахматы. правила этой игры он забыл, но помнит, что игра идет на большой доске , 2017*2017 клетки которой...
lenapelevina0
14.03.2020 11:24
C++ условие: дано четырёхзначное число. необходимо определить является ли оно палиндромом. примечание: палиндром - это такое число, которое одинаково читается слева...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('n='); readln(n);
k:=0;
for i:=1 to n do
begin
write('a='); readln(a);
s:=0;
while a<>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln(' sum=',s);
if s mod 3 =0 then k:=k+1;
end;
writeln('k=',k);
end.