Есть ответ 👍

Перевод из 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.

176
376
Посмотреть ответы 1

Ответы на вопрос:

Auyrey03
4,4(80 оценок)

Римские цифры ( буквы - а,б,в,г и т.д.; латинские - a,b,c,d etc.; арабские цифры    -   1,2,3,4 и т.д.; римские -  i  ii  iii  iv  v  vi и т.д.)

Популярно: Информатика