Методические указания по программированию на языке Pascal. Юшков С.А - 17 стр.

UptoLike

kol=……
Алгоритм
начало
I=1
Введи формулу
FHE[i]
I=I+1
I>20
kol=0
I=1
длина FHE[i]
R=1
Вырезка двух символов
VR=’O2’
kol=kol+1
R=DF
R=R+1
R>DF-1
I>20