Решить в паскале. 1)подсчитать количество предложений в заданном тексте. 2)найти сумму цифр в целой и в дробной части числа, введенного в виде текстовой строки.
Ответы на вопрос:
1) тк не уточнила загружаем из файла, или вводим с клавиатуры, получай с этими двумя функциями. в каталоге с программой должен быть файлик .txt
var a,filename: string[255]; chk,i,res: integer; f1: text; beginres: =0; chk: =0; writeln('1. input line'); writeln('2. load from file'); readln(chk); if chk=1 thenbegin writeln('input line: '); readln(a); for i: =1 to length(a) do if a[i]='.' then res: =res+1; writeln('result: ',res); end; if chk=2 thenbegin writeln('input name of file: '); readln(filename); filename: =filename+'.txt'; assign (f1, filename); reset(f1); while not eof (f1) do begin readln (f1, a); writeln(a); for i: =1 to length(a) do if a[i]='.' then res: =res+1; end; writeln('result: ',res); close (f1); end; readln; end.
2) вводим не запятую, а точку, как разделитель частей числа
var a,substr: string[100]; x,res,i: integer; beginwriteln('input number: '); readln(a); substr: ='.'; x: =pos(substr,a); for i: =1 to x-1 do res: =res+strtoint(a[i]); writeln('result of first part: ',res); res: =0; for i: =x+1 to length(a) do res: =res+strtoint(a[i]); writeln('result of second part: ',res); readln; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ne1naiioo11103.05.2020 08:14
-
alinamalina3754414.10.2020 09:11
-
hilton124.03.2020 20:01
-
любаня2026.06.2021 09:07
-
npodolskaa19121.05.2022 11:16
-
Takashu6914.04.2022 07:25
-
anelyasabina2020.06.2021 07:11
-
кил1025.05.2020 16:54
-
juliamarvel105.02.2023 00:18
-
rikitakata20.07.2020 18:59
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.