Вам даны число n и цифра d. выведите все n-значные числа, которые не содержат цифру d, в возрастающем порядке.
271
414
Ответы на вопрос:
//pascal abc.net версия 2.2 сборка 790 var s,d: string; n,i,j: integer; begin; readln(n); readln(d); i: =1; for j: =1 to n-1 do i*=10; j: =i; while i*10< > j do begin; inc(j); s: =inttostr(j); if pos(d,s)=0 then write(s: 5); end; end.пример ввода: 21пример вывода: 20 22 23 24 25 26 27 28 29 30 32 33 34 35 36 37 38 39 40 42 43 44 45 46 47 48 49 50 52 53 54 55 56 57 58 59 60 62 63 64 65 66 67 68 69 70 72 73 74 75 76 77 78 79 80 82 83 84 85 86 87 88 89 90 92 93 94 95 96 97 98 99
Еще один вариант: var n: integer; s: string; begin while s< > ' ' do begin readln(s); if s='a' then n: =n+1 end; writeln('количество а: ',n); end.
Популярно: Информатика
-
VikaRayder28.04.2022 21:46
-
Peleshok8325.05.2021 00:08
-
Rika246820.05.2020 10:17
-
kirifili00728.05.2021 23:12
-
bayosoz5oe510.03.2023 21:14
-
Айрона18.08.2022 20:22
-
Саня20076311.02.2022 08:56
-
34Марго3505.09.2022 21:25
-
Arslan08Kalmuk21.03.2020 18:12
-
барц200525.05.2020 00:45