35 ! переведите с pascal на c++ ( с олимпиады, дал преподаватель решить, я не могу) var digits : array[0..9] of integer; i, j, n : integer; begin for i : = 0 to 9 do digits[i] : = 0; read(n); for i : = 1 to 4 do begin j : = n mod 10; inc(digits[j]); n : = n div 10 end; for i : = 1 to 9
do if digits[i] > 0 then begin write(i); dec(digits[i]); break end; for j : = 1 to 3 do for i : = 0 to 9 do if digits[i] > 0 then begin write(i); dec(digits[i]); break end end.
type
mas=array[1..n,1..n]of integer;
var
a,b:mas;
i,j,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=Random(30);
for i:=1 to n do
for j:=1 to n do
b[i,j]:=Random(30);
writeln('Первый массив:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
writeln;
writeln('Второй массив:');
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:4);
writeln;
end;
writeln('Разность двух массивов A-B: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
sum:=sum+a[i,j]+b[i,j];
write(a[i,j]-b[i,j]:4);
end;
writeln;
end;
writeln('Сумма элементов двух массивов: ',sum);
end.
Рассмотрим каждую комбинацию отдельно:
HDEE
2 условие - true
3 условие - true
4 условие - true
Подходит
HHAE
2 условие - true
3 условие - false(H на 2 месте)
HEAE
2 условие - true
3 условие - true
4 условие - true
Подходит
AHAH
2 условие - true
3 условие - true
4 условие - true
Подходит
AEAD
2 условие - true
3 условие - true
4 условие - true
Подходит
AEED
2 условие - false(E на 3 месте)
CAEH
2 условие - false(A не входит в список допустимых значений)
EHAD
2 условие - true
3 условие - false(E не входит в список допустимых значений)
CDEA
2 условие - true
3 условие - true
4 условие - false(A не входит в список допустимых значений)
ответ: 4