Вывести на экран строки файла,которые содержат не менее 2-х запятых

@mmsamara · Регистрация: 07.11.2012

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста решить три задачи\

2.Вывести на экран строки файла,которые содержат не менее 2-х запятых

Заранее огромное огромное спасибо

@bushuev · 09.12.2012, 13:02

2.

Pascal

var f:text;
i,k:integer;
s:string;
begin
assign(f,'text.dat');
reset(f);
while not eof(f) do
begin
k:=0;
readln(f,s);
for i:=1 to length(s) do
if s[i]=',' then k:=k+1;
if k>=2 then writeln(s);
end;
end.

@mmsamara 0 / 0 / 0 Регистрация: 07.11.2012 Сообщений: 8
		1
	Вывести на экран строки файла,которые содержат не менее 2-х запятых 09.12.2012, 10:38. Показов 1653. Ответов 1 Метки нет (Все метки) Помогите пожалуйста решить три задачи\ 2.Вывести на экран строки файла,которые содержат не менее 2-х запятых Заранее огромное огромное спасибо 0

	09.12.2012, 13:02

Вывести на экран строки файла,которые содержат не менее 2-х запятых

Решение