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

@Sant441 · Регистрация: 25.05.2011

Практика ОАиП

@LeDep · 15.06.2011, 21:08

Pascal

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.

@revolver456 · 04.06.2020, 18:37

А какой будет код на си?

@Sant441 0 / 0 / 1 Регистрация: 25.05.2011 Сообщений: 23
		1
	Даны натуральные числа K и N. Составить программу формирования массива А, элементами которого являются числа, сумма цифр которых равна К и которые не 15.06.2011, 12:59. Показов 4515. Ответов 2 Метки нет (Все метки) Практика ОАиП 0

@revolver456 0 / 0 / 0 Регистрация: 09.03.2019 Сообщений: 4
	04.06.2020, 18:37	3
	А какой будет код на си? 0

Опции темы

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

Решение