Как вывести числа?

@Аркадик · Регистрация: 28.01.2011

Author24 — интернет-сервис помощи студентам

Найти и вывести все числа в интервале от 1 до N-1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет»...Как бы это реализовать....Подскажите пожалуйста

Добавлено через 30 секунд
Только можно готовые не кидать...Хочется разобраться самому =)

@Ilya007 · 10.05.2011, 19:52

Ну как я понял,ты вводишь какое-то число,и дальше сравниваешь его сумму цифр с суммами цифр других чисел...Чтобы узнать сумму цифр можно использовать вот такой алгоритм

Pascal

var s,k,d:integer;
begin
k:=4367;
s := 0;
write(k);
while k>0 do
  begin
  d:=k mod 10;
  s:=s+d;
  k:=k div 10;
  end;
writeln(s);
end.

Ну,а дальше просто сравнивать получившиеся значения

@Аркадик · 10.05.2011, 19:59 **[ТС]**

Сообщение от Ilya007

Ну как я понял,ты вводишь какое-то число,и дальше сравниваешь его сумму цифр с суммами цифр других чисел...Чтобы узнать сумму цифр можно использовать вот такой алгоритм

Pascal

var s,k,d:integer;
begin
k:=4367;
s := 0;
write(k);
while k>0 do
  begin
  d:=k mod 10;
  s:=s+d;
  k:=k div 10;
  end;
writeln(s);
end.

Ну,а дальше просто сравнивать получившиеся значения

Что у нас k и d?

Добавлено через 2 минуты
K получается введенное число а d?

@Ilya007 · 10.05.2011, 20:00

K - твое число,в твоем случае ты его сам вводить будешь, d - переменная, которой присваивается, с помощью деления,каждая из цифр твоего числа

@Аркадик · 10.05.2011, 20:15 **[ТС]**

ща попробую и отпишусь

Добавлено через 10 минут
он выводит только сумму введенного числа =) а как сделать чтобы выводил все числа в интервале от 1 до n-1 у которых сумма совпадает с суммой цифр.Вот пример кстати. число 44 . числа 18 26 35

@Высокий · 10.05.2011, 20:31

Разбей по разрядом и через два цикла фор перебери все десятичные числа до n. Скинуть готовый код?

@Аркадик · 10.05.2011, 20:49 **[ТС]**

Буду благодарен =)

@Высокий · 10.05.2011, 20:50

В таком вот аспекте...

Pascal

uses crt;
var i,j,n2,n,n1: integer;
begin clrscr;
readln(n);
n1:=(n div 10)+(n mod 10);
for i:=1 to n div 10 do
  for j:=1 to 9 do
  if (i+j=n1+n2) and (10*i+j<n) then writeln(i,j);
end.

@Аркадик · 10.05.2011, 21:16 **[ТС]**

че то запутался.....вот код может кто посмотрит =)
Program chislN;
uses crt;
Var N,S,D: Integer;
begin
ClrScr;
Write('Введите число N: ');
ReadLn(N);
if (N<0) or (N>99) then
WriteLn('Некорректный ввод')
else
begin
WriteLn('Результат:');
while n>0 do
begin
D:=N mod 10;
S:=S+D;
N:=N div 10;
end;
end;
ReadLn;
end.

@Аркадик 0 / 0 / 0 Регистрация: 28.01.2011 Сообщений: 59
		1
	Как вывести числа? 10.05.2011, 19:49. Показов 9867. Ответов 8 Метки нет (Все метки) Найти и вывести все числа в интервале от 1 до N-1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет»...Как бы это реализовать....Подскажите пожалуйста Добавлено через 30 секунд Только можно готовые не кидать...Хочется разобраться самому =) 0

@Ilya007 1 / 1 / 0 Регистрация: 10.05.2011 Сообщений: 15
	10.05.2011, 20:00	4
	K - твое число,в твоем случае ты его сам вводить будешь, d - переменная, которой присваивается, с помощью деления,каждая из цифр твоего числа 1

@Аркадик 0 / 0 / 0 Регистрация: 28.01.2011 Сообщений: 59
	10.05.2011, 20:15 [ТС]	5
	ща попробую и отпишусь Добавлено через 10 минут он выводит только сумму введенного числа =) а как сделать чтобы выводил все числа в интервале от 1 до n-1 у которых сумма совпадает с суммой цифр.Вот пример кстати. число 44 . числа 18 26 35 0

@Высокий 250 / 250 / 135 Регистрация: 09.04.2011 Сообщений: 524
	10.05.2011, 20:31	6
	Разбей по разрядом и через два цикла фор перебери все десятичные числа до n. Скинуть готовый код? 0

@Аркадик 0 / 0 / 0 Регистрация: 28.01.2011 Сообщений: 59
	10.05.2011, 20:49 [ТС]	7
	Буду благодарен =) 0

@Аркадик 0 / 0 / 0 Регистрация: 28.01.2011 Сообщений: 59
	10.05.2011, 21:16 [ТС]	9
	че то запутался.....вот код может кто посмотрит =) Program chislN; uses crt; Var N,S,D: Integer; begin ClrScr; Write('Введите число N: '); ReadLn(N); if (N<0) or (N>99) then WriteLn('Некорректный ввод') else begin WriteLn('Результат:'); while n>0 do begin D:=N mod 10; S:=S+D; N:=N div 10; end; end; ReadLn; end. 0