Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 17, средняя оценка - 5.00
MRS
3 / 3 / 0
Регистрация: 09.04.2010
Сообщений: 7
#1

Даны натуральные числа К и N. Составить программу формирования массива A, элементами которого являются числа, сумма цифр которых равна K и которые не - Pascal

09.04.2010, 06:36. Просмотров 2787. Ответов 6
Метки нет (Все метки)

вот собственно задача:
Даны натуральные числа К и N. Составить программу формирования массива A, элементами которого являются числа, сумма цифр которых равна K и которые не больше N.


Заранее очень благодарен!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.04.2010, 06:36
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Даны натуральные числа К и N. Составить программу формирования массива A, элементами которого являются числа, сумма цифр которых равна K и которые не (Pascal):

Сформировать массив, элементами которого являются числа, сумма которых равна K и которые не больше N
блин, на контрольной дали задачу, вообще не понимаю что требуется!(( помогите...

Составить программу для формирования массива, элементами которого являются цифры числа N
Дано Натуральное число N. Составить программу для формирования массива,...

Найти все трёхзначные натуральные числа, сумма цифр которых равна заданному числу N
Помогите, пожалуйста, решить задачу...Третий час бьюсь. Вот более полный текст:...

Удалить из последовательности числа, начинающиеся цифрой 2, а среди оставшихся продублировать числа, сумма цифр которых равна 25
Дана последовательность натуральных чисел {Aj}j=1...n (n<=10000). Удалить из...

Даны два файла, элементами которых являются целые числа
Даны два файла, элементами которых являются целые числа. Необходимо...

Дан массив целых чисел. Составить новый массив, элементами которого являются числа-перевертыши исходного массива
Дан массив целых чисел. Составить новый массив, элементами которого являются...

6
NIch
400 / 311 / 74
Регистрация: 17.03.2010
Сообщений: 1,120
09.04.2010, 11:06 #2
Код для консоли Delphi, но перевести его в паскаль пустяки...
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
 N, M, i, a, b, c, d: word;
 Arr: array of word;
 
begin
 WriteLn('Enter number N');
 Read(N);
 Writeln('Enter number M');
 Read(M);
 WriteLn('To start press Enter');
 ReadLn;
 for i := 0 to 999 do
 begin
  a := i mod 10;
  b := (i div 10) mod 10;
  c := ((i div 10) div 10) mod 10;
  d := a + b + c;
  if (d = N) and (d < M) then
   WriteLn(i);
 end;
 WriteLn('To finish press Enter');
 ReadLn;
end.
1
MRS
3 / 3 / 0
Регистрация: 09.04.2010
Сообщений: 7
09.04.2010, 17:31  [ТС] #3
Спасибо!

Добавлено через 2 часа 10 минут
Помогите, пожайлуста, написать эту прогу на Паскале с использованием процедур. Очень надо..
Заранее благодарен!
0
yanyk1n
4331 / 1462 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
09.04.2010, 17:37 #4
NIch, вы даже и не использовали массивы в программе. Вот решение с процедурами:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt;
type arr=array[1..1000]of integer;
 
var N, K, C: integer;
a : arr;
 
function sum(n:integer):integer;
var s:integer;
begin
 s:=0;
 while n<>0 do
 begin
  s:=s+n mod 10;
  n:=n div 10;
 end;
 sum:=s;
end;
 
procedure fill(var a:arr, C, N, K: integer);
var i:integer;
begin
 c:=0;
 for i:=1 to N do if sum(i)=k then
 begin
  inc(c);
  a[c]:=i;
 end;
end;
 
begin
 clrscr;
 write('N K-> ');
 readln(N, K);
 fill(a, c, N, K);
 for i:=1 to с do write(a[i],' ');
 readln;
end.
2
NIch
400 / 311 / 74
Регистрация: 17.03.2010
Сообщений: 1,120
09.04.2010, 17:40 #5
Да точно...спасибо за указание на ошибку(((
0
MRS
3 / 3 / 0
Регистрация: 09.04.2010
Сообщений: 7
09.04.2010, 17:48  [ТС] #6
Спасибо, мужики БОЛЬШОЕ!!! Очень выручили.

Добавлено через 3 минуты
К1ry4,
напиши отдельно ,пожайлуста, код после 31 строки..
У меня просто на айфоне не прокручивает вниз(((
СПС
0
NIch
400 / 311 / 74
Регистрация: 17.03.2010
Сообщений: 1,120
15.04.2010, 14:44 #7
Цитата Сообщение от MRS Посмотреть сообщение
напиши отдельно ,пожайлуста, код после 31 строки..
Позволю себе сделать это вместо k1ry4
Pascal
1
2
3
4
5
6
7
 clrscr;//31 строка
 write('N K-> ');
 readln(N, K);
 fill(a, c, N, K);
 for i:=1 to с do write(a[i],' ');
 readln;
end.
1
15.04.2010, 14:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.04.2010, 14:44
Привет! Вот еще темы с решениями:

даны натуральные числа m и n, получить все натуральные числа меньшие n, квадрат суммы которых равен m
даны натуральные числа m и n, получить все натуральные числа меньшие n, квадрат...

Найдите все трехзначные числа, сумма цифр которых равна произведению цифр
Найдите все трехзначные числа, сумма цифр которых равна произведению цифр

Найти все четырёхзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27.
Помогите решить ещё одну задачку :) Найти все четырёхзначные числа, у которых...

Найти все четырехзначные числа,у которых сумма крайних цифр равна сумме средних цифр,а само число делится на 6 и 27
Найти все четырехзначные числа,у которых сумма крайних цифр равна сумме средних...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru