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

Текущая версия на 10:55, 13 мая 2009

                                                                ДО

                                                              ПОСЛЕ

@@ Строка 1: / Строка 1: @@
-== задание by chinich ==
+                                                                 '''ДО'''
-By chinich: дан файл, состояший из данных типа запись.запись содержит информацию: фамилия,адрес, телефон. Определить, сколько телефонов установлено в доме 1 по улице пушкина
+[[Изображение:Глаза.jpeg]]
-By chernov:создать процедуру удаляющую текст в файле после заданного символа
-== by Black Bull ==
+                                                               '''ПОСЛЕ'''
+[[Изображение:monday_6.jpg]]
-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.