Переводим часы в минуты: 1 час = 60 минут 3/4 часа = (3/4) *60 = 45 мину. Переводим км/ч в м/мин: 3 км/ч = (3*1000 м)/60 мин=50 м/мин. Обозначим расстояние, которое проплыла лодка через S1, а для плота - через S2. Тогда S1=45*v1, где 45 - это время в пути, мин, v1 - скорость, с которой двигалась лодка. S2=45*50=2250 м - расстояние, которое проплыл плот за время 45 минут. (50 м/мин - это скорость плота). Согласно условию S1-S2=450, тогда S1=S2+450=2250+450=2700 м - расстояние, которое проплыла лодка за 45 мину. Помним, что S1=45*v1. Отсюда v1=S1/45=2700/45= 60 м/мин - это скорость, с которой двигалась лодка.
1 час = 60 минут
3/4 часа = (3/4) *60 = 45 мину.
Переводим км/ч в м/мин:
3 км/ч = (3*1000 м)/60 мин=50 м/мин.
Обозначим расстояние, которое проплыла лодка через S1, а для плота - через S2. Тогда S1=45*v1,
где 45 - это время в пути, мин,
v1 - скорость, с которой двигалась лодка.
S2=45*50=2250 м - расстояние, которое проплыл плот за время 45 минут. (50 м/мин - это скорость плота).
Согласно условию S1-S2=450, тогда S1=S2+450=2250+450=2700 м - расстояние, которое проплыла лодка за 45 мину.
Помним, что S1=45*v1. Отсюда v1=S1/45=2700/45= 60 м/мин - это скорость, с которой двигалась лодка.
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.