Четырехзначное число в расширенной записи имеет вид Известно, что первая и последняя цифры одинаковы, отсюда d=a. Сумма цифр числа равна 16, т.е. 2a+b+c=16 (1) Если число делится на 2, то оно четное, следовательно "a" может равняться 2, 4, 6, 8. (2) Нулю оно равняться не может, поскольку тогда число станет трехзначным. Если четырехзначное число делится на 11, то модуль разности между суммами цифр, стоящих на четных и нечетных местах должна делиться на 11, т.е. |(a+c)-(a+b)|= |(c-b| делится на 11. Но разность двух однозначных чисел не может превышать 9, поэтому если она делится на 11, то она должна быть равна нулю. Но тогда с=b и число имеет вид 1000a+100b+10b+a. А уравнение (1) будет выглядеть как 2a+b+b=16; 2a+2b=16; b=8-a (3) C учетом (2) можно из (3) получить 4 решения: a=2, b=6 a=4, b=4 a=6, b=2 a=8, b=0 И это породит 4 возможных кода: 2662, 4444, 6226, 8008.
uses crt; var a:array[1..11] of integer; i,j,s,k:integer; begin writeln('Исходный массив: '); for i:=1 to 10 do begin a[i]:=random(5); write(a[i]:4); end; s:=1; k:=0; for i:=1 to 10 do begin if a[i]=a[i+1] then s:=s+1; if a[i]<>a[i+1] then begin if k<s then k:=s; s:=1; end; end; writeln; writeln('Наибольшая последовательность одинаковых элементов: ',k);write(k); end.
Массив состоит из 10 чисел (в описании максимум чисел должен быть на 1 больше, чем по факту, поэтому там 11). Числа в массиве задаются случайно в пределах от нуля до 5 (не включая 5).
Известно, что первая и последняя цифры одинаковы, отсюда d=a.
Сумма цифр числа равна 16, т.е. 2a+b+c=16 (1)
Если число делится на 2, то оно четное, следовательно "a" может равняться
2, 4, 6, 8. (2)
Нулю оно равняться не может, поскольку тогда число станет трехзначным.
Если четырехзначное число делится на 11, то модуль разности между суммами цифр, стоящих на четных и нечетных местах должна делиться на 11, т.е. |(a+c)-(a+b)|= |(c-b| делится на 11. Но разность двух однозначных чисел не может превышать 9, поэтому если она делится на 11, то она должна быть равна нулю. Но тогда с=b и число имеет вид
1000a+100b+10b+a.
А уравнение (1) будет выглядеть как
2a+b+b=16; 2a+2b=16; b=8-a (3)
C учетом (2) можно из (3) получить 4 решения:
a=2, b=6
a=4, b=4
a=6, b=2
a=8, b=0
И это породит 4 возможных кода: 2662, 4444, 6226, 8008.
uses crt;
var a:array[1..11] of integer;
i,j,s,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do begin
a[i]:=random(5);
write(a[i]:4);
end;
s:=1; k:=0;
for i:=1 to 10 do begin
if a[i]=a[i+1] then s:=s+1;
if a[i]<>a[i+1] then begin if k<s then k:=s; s:=1; end;
end;
writeln;
writeln('Наибольшая последовательность одинаковых элементов: ',k);write(k);
end.
Массив состоит из 10 чисел (в описании максимум чисел должен быть на 1 больше, чем по факту, поэтому там 11). Числа в массиве задаются случайно в пределах от нуля до 5 (не включая 5).