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

UptoLike

Текст программы
Program Him;
{составил ……}
var FHE:array[1..20] of string[15];
DF, i, R, kol:word;
VR:string[2];
begin
for i:=1 to 20 do
begin
write(‘введи формулу ’);
readln(FHE[i]);
end;
kol:=0;
for i:=1 to 20 do
begin
DF:=length(FHE[i]);
R:=1;
repeat
VR:=copy(FHE[i],R,2);
if VR=’O2’ then
begin
kol:=kol+1;
R:=DF;
end;
R:=R+1;
until R>DF-1;
end;
Write(kol);
end.
Результат
Введи формулу C2H5OH
Введи формулу H2O
……………………………
введи формулу СO2
kol=12
kol
коне
ц