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

антох, реши плиз! : Создайте процедуру , удаляющюю текст в файле после заданного символа. Используйте процедуру для удаления текста в 2х заданных файлах после разных символов

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.

Создать модуль, содержащий подпрограммы ввода множества целых чисел и вывода множества на экран. Написать программу, в которой требуется сформировать два множества целых чисел и определить третье множество, равное их пересечению. Использовать созданный модуль.

Создать модуль, содержащий подпрограммы ввода множества целых чисел и вывода множества на экран. Написать программу, в которой требуется сформировать два множества целых чисел и определить третье множество, равное их пересечению. Использовать созданный модуль.