Код 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.

0 0

4 года назад

Задача 1 Исполнитель Чертёжник перемещается на координатной плоскости, оставляя след в виде линии. Чертёжник может выполнять ком

BigorU [14]

1)3
2)1
......................

0 0

3 года назад

Перед вами числа, записанные в различных системах счисления. Среди них встречаются и недопустимые записи, которые нужно определи

Skriga

Правильно: 543(6)=5*6(в квадрате)+4*6+3= 180+24+3=207,
56(7)=5*7+6=41
неправильно:91(3), так как нельзя использовать в записи 9. (есть только 0, 1, 2),
23(2), так как нельзя использовать 2. (есть только 0, 1).

0 0

4 года назад

Алфавит языка программирования содержит строчные и прописные буквы от A до Z и знаки арифметических операций . Какова мощность э

Ikraft [7]

Мощность алфавита - это количество символов, из которых состоит алфавит.

26 букв латинского *2= 52 символа и 5 основных знаков арифм операций = 52+5=57 символов -ответ

0 0

4 года назад