Переложи одну спичку в правой части каждого из числовых равенств так,чтобы получилось верное равенство. vi=v+iii; vi=vii+ii
127
142
Ответы на вопрос:
Var i,n,m: integer; a: set of 0..9; b: set of 0..9 =[0,1,2,3,4,5,6,7,8,9]; c: array[1..200] of integer; begin write(' n = '); readln(n); randomize; for i: =1 to n do begin c[i]: =random(255); write(c[i],' '); end; writeln; a: =[]; for i: =1 to n do begin m: =c[i]; while (m> 0) do begin a: =a+[(m mod 10)]; m: =m div 10; end; end; b: =b-a; if b< > [] then begin write('в записи чисел массива не содержатся цифры : '); foreach i in b do write(i,' '); end else writeln('встречаются все цифры'); end.
Популярно: Информатика
-
alexksyx02.11.2022 22:36
-
НикитаПахомов119.09.2022 15:01
-
roma627910.04.2021 02:47
-
unicorn33722827.08.2022 11:49
-
sasha228h09.05.2021 05:53
-
clon424.09.2021 10:29
-
Коtик07.05.2021 15:16
-
YouTuber22824.05.2023 16:11
-
spirt708ozrmv030.03.2021 16:02
-
incognito123427.09.2021 05:16