Определить количество строк в текстовом файле, в которых есть символ «!».
напишите плз код на Паскале....=3
//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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
