Перевод из 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
Ответы на вопрос:
Римские цифры ( буквы - а,б,в,г и т.д.; латинские - a,b,c,d etc.; арабские цифры - 1,2,3,4 и т.д.; римские - i ii iii iv v vi и т.д.)
Популярно: Информатика
-
matysja13824.02.2021 23:31
-
плвлаовг26.09.2020 13:32
-
danilddp02kr109.01.2023 15:31
-
МарсСМарса12.08.2020 03:58
-
Risha000chaR30.06.2022 23:31
-
Анастасия000000000023.05.2023 05:03
-
mariyapetrpet06.03.2023 11:38
-
amikayilova04.04.2022 01:24
-
мгмлидт08.06.2022 09:23
-
zuhranormatova001.03.2023 00:17