Вопрос по информатике:
Pascal ABC
Задача с while, for, if.
На промежутке от a до b найти все числа и их количество(k), которые делятся на сумму(s) своих цифр.
Тест:
10 20
10 12 18 20
4
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.10.2017 13:53
- Информатика
- remove_red_eye 8794
- thumb_up 22
Ответы и объяснения 1
Var
a,b,i,j,k,s:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
k:=0;
for i:=a to b do
begin
j:=i;
s:=0;
while (j>0) do
begin
s:=s+(j mod 10);
j:=j div 10;
end;
if (i mod s)=0 then
begin
write(i,' ');
inc(k);
end;
end;
writeln;
writeln('k=',k);
end.
- 09.10.2017 09:52
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.