Вопрос по информатике:
Помогите, Паскаль!
Дано n чисел. Найти а) сумму цифр каждого из них; б) количество чисел, сумма цифр которых кратна 3. Повторить системы счисления
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.02.2016 13:47
- Информатика
- remove_red_eye 7638
- thumb_up 47
Ответы и объяснения 1
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 a0 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.
- 02.02.2016 04:26
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.