program P_183636;
{ K и N }
const
K=10;
N=100;
{ Тип массив }
type
TArray=array[1..N] of Word;
var
Count:Word=0; { Количество элементов }
A:TArray; { Массив A }
I:Word;
{ Ф-я считает сумму цифр в числе }
function DSum(Value:Word):Word;
var
Sum:Word=0; { Сумма }
begin
{ Пока число не 0 }
while Value>0 do begin
Inc(Sum,Value mod 10); { Суммируем с последней цифрой }
Value:=Value div 10; { Избавляемся от последней цифры }
end;
DSum:=Sum;
end;
begin
{ Перебор чисел }
for I:=1 to N do begin
{ Если сумма равна K }
if DSum(I)=K then begin
Inc(Count); { Увеличим счетчик }
A[Count]:=I; { Добавим в массив A }
end;
end;
{ Вывод массива A }
WriteLn('Массив A:');
for I:=1 to Count do begin
Write(A[I]:5,' ');
end;
WriteLn;
ReadLn;
end.
Массив A:
19 28 37 46 55 64 73 82 91
// Подсчитать количество цифр в заданном натуральном числе.
// PascalABC.NET, RFPRO, lamed, Kovrov-city, 15.06.2011
procedure digits(const n: integer; var d: integer);
begin
if n<10 then
d:=0
else
digits(n div 10,d);
inc(d);
end;
var
x, d: integer;
begin
write('Число ');
readln(x);
digits(x,d);
writeln('Количество цифр ', d);
end.
program P_183636;
{ K и N }
const
K = 10;
N = 100;
{ Тип массив }
type
TArray = array[1..N] of word;
var
Count: word; { Количество элементов }
A: TArray; { Массив A }
I: word;
{ Ф-я считает сумму цифр в числе }
function DSum(Value: word): word;
var
Sum: word; { Сумма }
begin
Sum:=0;
{ Пока число не 0 }
while Value > 0 do
begin
Inc(Sum, Value mod 10); { Суммируем с последней цифрой }
Value := Value div 10; { Избавляемся от последней цифры }
end;
DSum := Sum;
end;
begin
Count:=0;
{ Перебор чисел }
for I := 1 to N do
begin
{ Если сумма равна K }
if DSum(I) = K then
begin
Inc(Count); { Увеличим счетчик }
A[Count] := I; { Добавим в массив A }
end;
end;
{ Вывод массива A }
WriteLn('Массив A:');
for I := 1 to Count do
begin
Write(A[I]: 5, ' ');
end;
WriteLn;
ReadLn;
end.
procedure digits(const n: integer; var d: integer);
begin
if n<10 then
d:=0
else
digits(n div 10,d);
inc(d);
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.