Ответы на вопрос:
Var k: array[1..100] of integer; a,n,i,c: integer; begin c: =0; i: =1; a: =999; write('введите n: '); readln(n); writeln('введите a: '); while a< > 0 do beginr eadln(a); if (a> =100) and (a< =999) then begin if ((a div 100)+((a div 10) mod 10)+(a mod 10))=n then begin k[i]: =a; i: =i+1; c: =c+1; end; end; end; if c> 0 then begin writeln('числа, сумма цифр которых равна ',n,': '); for i: = 1 to c do writeln(k[i]); end; end.
Популярно: Информатика
-
albinazagidulli29.12.2021 01:19
-
Ватрушкасмаком24.09.2022 20:35
-
Kateriна04.06.2021 01:33
-
Сова221127.05.2020 10:03
-
dianaterpil3003108.03.2023 15:25
-
Galina196001.11.2021 21:36
-
literaturas12.09.2020 20:30
-
NormerSE22.03.2022 04:41
-
lutaasasa5p08d7e05.01.2021 03:06
-
birdibir21.03.2021 06:03