Вопрос по информатике:
Определить количество строк в текстовом файле, в которых есть символ «!».
напишите плз код на Паскале....=3
- 22.09.2017 14:20
- Информатика
- remove_red_eye 3702
- thumb_up 39
Ответы и объяснения 1
//Pascal ABC.NET Версия 2.2 Сборка 790
var f:text;
a,i,n:integer;
ars:array of string;
begin;
assign(f,'text.txt');
reset(f);
while not Eof(f) do
begin;
inc(n);
setlength(ars,n+1);
readln(f,ars[n]);
end;
close(f);
for i:=1 to n do
if pos('!',ars[i])0 then a:=a+1;
writeln(a);
end.
Пример text.txt:
890 823 23 232 23
436434!
346643
21
Пример вывода:
1
- 23.09.2017 23:23
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.