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.
а) z = 6
b) k = 16
d) y = 110
Пошаговое объяснение:
a) (82 - 3z) : 4 = 16
при делении скобки на число мы должны каждое число в скобке разделить на это число
(82 - 3z) : 4 = 16
82 : 4 - 3z : 4 = 16
20,5 - 0,75z = 16
z оставляем в левой части,числа переносим в правую
- 0,75z = 16 - 20,5
- 0,75z = - 4,5
z = - 4,5 / - 0,75
z = 6
b) 25 * (344 - 8k) = 5400
при умножении скобки на число мы должны каждое число в скобке умножить на это число
25 * (344 - 8k) = 5400
25 * 344 - 25 * 8k = 5400
8600 - 200k = 5400
k оставляем в левой части,числа переносим в правую
- 200k = 5400 - 8600
- 200k = - 3200
k = - 3200 / - 200
k = 16
d) 8 * y - 2 * y = 660
8y - 2y = 660
6y = 660
y = 660 / 6
y = 110
Первая труба в минуту пропускает 12-4=8 л
ответ: 8 л/мин