Код PascalABC.NET 3.2:
Var S:string;
i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
if S[i] = 'д' then
if S[i+1] = 'о' then
if S[i+2] = 'м' then
k:=k+1;
WriteLn(k)
End.
Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 < d1 then d1:=d3;
if d2 < d1 then d1:=d2;
WriteLn(d1)
End.
Var
i:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do
write(s[length(s)-i]);
end.
Ответ:
Nichego ne ponal pishi vhatnee
А)1. наливаем 8л (0_8)
2. выливаем 8л в 3л (3_5)
3. выливаем из 3л (0_5)
4. выливаем из 8л (3_2)
5. выливаем из 3л (0_2)
6. выливаем из 8л в 3л (2_0)
7. наливаем в 8л (2_8)
8. выливаем из 8л в 3л (3_7)
б) нет
Водитель - автобус и остановка
Автобус - водитель, пассажир, контролёр
Пассажир - автобус, остановка, билет
Контролер - билет и пассажир