Перевод из pascal в qbasic program dekio; varnstr : string; i,ksl : integer; beginksl: =0; writeln('введите строку'); readln(nstr); for i: =1 to length(nstr) doif (nstr[i]='.') or (nstr[i]=' ') theninc(ksl); writeln('количество слов ',ksl); end.

healarcimbo    1   06.10.2019 21:30    1