Информатика | 10 - 11 классы
Дан текстовый файл.
Подсчитать количество строк, в которых вторым стоит символ « + », а предпоследним « - ».
Дана строка символов?
Дана строка символов.
Подсчитать количество вхождений буквы "n".
Определить количество строк в текстовом файле, в которых есть символ «?
Определить количество строк в текстовом файле, в которых есть символ «!
». напишите плз код на Паскале.
= 3.
Дан текстовый файл?
Дан текстовый файл.
Вывести на экран самую длинную строку из файла.
Через паскале.
Дан текстовый файл, содержащий целые числа?
Дан текстовый файл, содержащий целые числа.
Найти количество чисел в файле и их сумму.
Имеется текстовый файл?
Имеется текстовый файл.
Напечатать : символы с s1 - го по s2 - й в первой строке.
Написать прогу в С + + ?
Написать прогу в С + + .
Дана строка, состоящая из групп нулей и единиц.
Подсчитать количество единиц в группах с нечетным количеством символов.
Во введенной строке подсчитайте количество символов " * " и символов "?
Во введенной строке подсчитайте количество символов " * " и символов "!
". Информатика.
Паскаль.
Строки.
Дан текстовый файл?
Дан текстовый файл.
Подсчитать количество символов в каждой строке.
Ввести строку из текстового файла?
Ввести строку из текстового файла.
Продублировать в ней все цифры.
Остальные символы оставить без изменения.
PascalABC.
Net.
Дана строка слова в которой разделены пробелом, подсчитайте количество слов в этой строке?
Дана строка слова в которой разделены пробелом, подсчитайте количество слов в этой строке.
На странице вопроса Дан текстовый файл? из категории Информатика вы найдете ответ для уровня учащихся 10 - 11 классов. Если полученный ответ не устраивает и нужно расшить круг поиска, используйте удобную поисковую систему сайта. Можно также ознакомиться с похожими вопросами и ответами других пользователей в этой же категории или создать новый вопрос. Возможно, вам будет полезной информация, оставленная пользователями в комментариях, где можно обсудить тему с помощью обратной связи.
Var str : string ; a, b : char ; count : integer ;
begin
assign (input, 'file.
Txt') ; reset (input) ;
while not eof do
begin readln (str) ; if length (str) > ; 1 then a : = str[2] else a : = '1' ; if length (str) > ; 1 then b : = str[2] else b : = '1' ; / / Заведомо неверные данные if (a = ' + ') and (b = ' - ') then inc (count) ;
end ;
writeln (count) ;
end.