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.
Решение.
1. Найдем производную функции f(x).
f'(x) = 3x^2 - 4x + 1.
2. Производная функции f(x) существует на всем числовом интервале.
3. Найдем стационарные точки функции f(x). Решим уравнение.
3x^2 - 4x + 1 = 0;
D = 16 - 12 = 4.
Уравнение имеет 2 корня х = 1/3 и х = 1.
4. Функция f(x) имеет 2 критические точки х = 1/3 и х = 1.
5. Исследуем критические точки на максимум и минимум.
Найдем вторую производную функции f(x).
f''(x) = 6x - 4.
f''(1/3) = 6 * 1/3 - 4 = -2 < 0. x = 1/3 - точка максимума.
f''(1) = 6 * 1 - 4 = 2 > 0. х = 1 - точка минимума.
ответ. Функция имеет 2 критические точки. х = 1/3 - точка максимума, х = 1 - точка минимума.
Дано:
Было 10 ложек
Убрали 4 ложки
Найти:
Осталось ? ложек
Выражение:
10-4=6
ответ: 6 ложек осталось
Схема во вложении