Программа, которая выводит все числа от 1го до n-1

@Kir007 · Регистрация: 23.10.2012

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

Здравствуйте помогите составить программу, которая выводит все числа от 1го до n-1 если сумма цифр в числе n ровна сумме цифр в каждом из этих чисел

@BumerangSP · 26.10.2012, 15:01

Pascal

uses crt;
function sum(a: integer): integer;
var x,s:integer;
begin
 x:=a;
 s:=0;
 while ( x<>0 ) do
 begin
   s := s + (x mod 10);
   x := x div 10;
 end;
 sum:=s;
end;
 
var i,n: integer;
begin
 clrscr;
 readln( n );
 for i:=1 to n-1 do
  if sum(i)=sum(n) then
   write(i,' ');
 readln;
end.

@Kir007 0 / 0 / 0 Регистрация: 23.10.2012 Сообщений: 4
		1
	Программа, которая выводит все числа от 1го до n-1 23.10.2012, 21:37. Показов 1876. Ответов 1 Метки нет (Все метки) Здравствуйте помогите составить программу, которая выводит все числа от 1го до n-1 если сумма цифр в числе n ровна сумме цифр в каждом из этих чисел 0

	26.10.2012, 15:01

Опции темы

Программа, которая выводит все числа от 1го до n-1

Решение