Регистрация
Ksenya0809
07.09.2020 22:41
Информатика
Есть ответ 👍

Для добавления сносок в документ необходимо воспользоваться : *

пунктом меню «Сноски» и выбрать группу «Ссылки».

пунктом меню «Ссылки» и выбрать группу «Сноски».

пунктом меню «Главная» и выбрать группу «Вставка».

пунктом меню «Вставка» и выбрать группу «Сноски».

​

208
457
Посмотреть ответы 2

Ответы на вопрос:

VeshkinRuslan
VeshkinRuslan
4,6(79 оценок)

4 ответ

Объяснение:

uzinalizs
uzinalizs
4,7(26 оценок)

ответ:

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.

объяснение:

Популярно: Информатика