Var s : string;
i, k : integer;
Begin
read(s);
for i:=1 to length(s)-1 do
if (s[i] = 'а') and ((s[i + 1] = ';') or (s[i + 1] = ':')) then
k := k + 1;
write(k);
End.
В Worde:
Клавишей "Enter" в конце строки, чтобы создать новую строку.
Клавишей "Backspace" в конце пустой строки, чтобы удалить строку.
Клавишей "Delete" в начале пустой строки, чтобы удалить строку.
Var
N,M,S,A,i,j:integer;
Begin
S:=0;
j:=0;
Write('N = ');Read(N);
Write('M = ');Read(M);
For i:= 1 to N do
Begin
A:=random(2001)-1000;
Write(A,' ');
if A mod M = 0 then
Begin
S:=S+A;
j:=j+1;
End;
End;
WriteLn;
if j=0 then Write('Чисел, кратных ',M,' нет')
else Write('Среднее арифметическое чисел, кратных ',M,' = ',S/j);
End.