Вопрос по информатике:
Среди всех n-значных чисел укажите те,сумма цифр которых равна данному числу k.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.12.2015 08:27
- Информатика
- remove_red_eye 1005
- thumb_up 49
Ответы и объяснения 1
Program proga;
var k,i:integer;
n,d1,d:LongInt;
st:string;
begin
d:=0;
k:=0;
n:=0;
d1:=0;
writeln('Введите n-значное число, и число k');
readln(n,k);
str(n,st);
for i:=length(st) downto 1 do begin
val(st[i],d1,d);
{d1:=d1+d;}
d1:=d1+d1;
{writeln(d1);}
end;
if(d1=k) or (n=k) then
writeln('Сумма чисел n значного числа = k')
else writeln('Сумма чисел n значного числа не ровна k');
end.
- 08.12.2015 05:55
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.