* Обшорна розробка програмного забезпечення в Україні : основні центри і компанії * Дослідження

283

441

Посмотреть ответы 1

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

Мэрия777

Информатика

4,7(98 оценок)

Не уверен может не var a,n,sn,s,i,n1: integer; begin readln(n); n1: =n; repeat sn: =sn+n1 mod 10; n1: =n1 div 10; until n1=0; for i: =1 to n-1 do begin a: =i; s: =0; repeat s: =s+a mod 10; a: =a div 10; until a=0; if s=sn then write(i,' '); end; readln; end.