Procedure ghishi(var s : string; var n : byte); var i : byte; begin n: =0; for i: =1 to length(s)-1 do if (s[i] in ['ж','ш']) and (s[i+1]='ы') then begin s[i+1]: ='и'; inc(n); end; end; var st : string; k : byte; begin { readln(st); } st: ='"жы" и "шы" пишы через "и"'; ghishi(st,k); writeln(st); writeln('количество ошибок: ',k); end.
choia
15.12.2021
Microsoft qbasic 1.0 cls x = 0 do while x < = 2.1001 print x, cos(x) x = x + .1 loop результат 0 1 .1 .9950042 .2 .9800666 .3 .9553365 .4 .921061 .5 .8775826 .6 .8253356 .7 .7648422 .8000001 .6967067 .9000001 .6216099 1 .5403022 1.1 .453596 1.2 .3623576 1.3 .2674986 1.4 .1699669 1.5 7.073697e-02 1.6 -2.919978e-02 1.7 -.1288448 1.8 -.2272024 1.9 -.3232899 2 -.4161471 2.1 -.5048462
при пересечении - 30,
при объединении - 40+30=70