var b,i,z,k: integer;
a: array[1..10000] of integer;
begin
read(b);
z: =0;
k: =0;
while b> 0 do
begin
z: =z+1;
a[z]: = b mod 10;
b: =b div 10;
end;
for i: =2 to z-1 do
if a[i]=a[i-1] or a[i]=a[i+1] then
k: =1;
if k=1 then writeln (‘да’)
else writeln (‘нет’);
end.
второй способ:
var a,b,c: integer;
begin
read(a);
k: =0;
c: =10; // это должно быть обязательно число, но не цифра
while a > 0 do
begin
b: =a mod 10;
a: =a div 10;
if b=c then k: =1;
c: =b;
end;
if k=1 then writeln (‘да’)
else (‘нет’);
end.
Так как за 4 попадания в десятку было выбито 40 очков, то за оставшиеся попадания в 7; 8 и 9 было выбито:
90 - 40 = 50 (очков)
Задача состоит в том, чтобы скомпоновать оставшиеся попадания в 7; 8 и 9 так, чтобы в сумме получить 50.
Всего таких попаданий было 6. И, по условию, в 7; 8 и 9 было хотя бы одно попадание.
Обозначим количество попаданий в семерку: х, в восьмерку: у, и в девятку: z. Тогда:
{ 7х + 8у + 9z = 50 (1)
{ x + y + z = 6
7 · (x + y + z) + y + 2z = 50
y + 2z = 50 - 42
y + 2z = 8
y = 8 - 2z - подставим в (1):
7x + 8 · (8 - 2z) + 9z = 50
7x - 7z = -14
z = x + 2 => y = 8 - 2x - 4 = 4 - 2x
Из последнего выражения следует, что:
х может быть равен только 1, иначе у ≤ 0.
тогда у = 4 - 2 = 2,
z = 1 + 2 = 3.
Проверим: 7 · 1 + 8 · 2 + 9 · 3 = 50
7 + 16 + 27 = 50
50 = 50
ответ: В семерку было 1 попадание, в восьмерку - 2, в девятку - 3.
Да, верно так как
И
Если словами, то точка K лежит на обоих окружностях т.к. это точка пересечения, а для любой точки окружности расстояние от неё до центра той же окружности равно радиусу этой окружности, поэтому утверждение верное.