Обсуждение:Вычислительные машины, комплексы, системы и сети

задание by chinich

By chinich: дан файл, состояший из данных типа запись.запись содержит информацию: фамилия,адрес, телефон. Определить, сколько телефонов установлено в доме 1 по улице пушкина

By chernov:создать процедуру удаляющую текст в файле после заданного символа

by Black Bull

uses crt; var s:string; s1:string[1]; l,k,j,i:integer; begin writeln('vvedite text'); readln(s); l:=length(s); writeln('vvedite simvol'); readln(s1); for i:=1 to l do if s1=s[i] then begin j:=l-i+1; delete(s,i+1,j); break end; writeln(s); writeln; writeln('programm has made by Black Bull'); readln; end.