Склавиатуры вводят слово и символ.составить программу,которая: а)проверяет есть ли в этом слове заданный символ б)определяет позицию заданного символа в)подсчитывает количество вхождений заданного символа.
var s : string; symb : char; i : longint; begin readln(s); readln(symb); if pos(symb,s)=0 then writeln('В этом слове нет этого символа') else begin i:=0; while pos(symb,s)<>0 do begin write(pos(symb,s)+i,' '); i:=i+1; Delete(s,pos(symb,s),1); end; end; writeln; writeln(i); end.
Var x, h, y, alpha : real; begin write('k = '); read(x); write('h = '); read(h); y := 2; while y < 3 + 1E-9 do begin writeln('y = ', y, ', alpha = ', arccos(y / x) * 180 / pi : 0 : 3); y := y + h; end; end.
Пример работы программы: k = 5 h = 0.1 y = 2, alpha = 66.422 y = 2.1, alpha = 65.165 y = 2.2, alpha = 63.896 y = 2.3, alpha = 62.613 y = 2.4, alpha = 61.315 y = 2.5, alpha = 60.000 y = 2.6, alpha = 58.668 y = 2.7, alpha = 57.316 y = 2.8, alpha = 55.944 y = 2.9, alpha = 54.549 y = 3, alpha = 53.130
var s : string; symb : char; i : longint;
begin
readln(s);
readln(symb);
if pos(symb,s)=0 then writeln('В этом слове нет этого символа')
else begin
i:=0;
while pos(symb,s)<>0 do begin
write(pos(symb,s)+i,' ');
i:=i+1;
Delete(s,pos(symb,s),1);
end;
end;
writeln;
writeln(i);
end.