Разработайте программу решения задачи с использованием процедур и функций над строками и операций над множествами

@IAmHated · Регистрация: 27.10.2009

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

Напишите программу, проверяющую, является ли частью данного слова слово «сок».

@WebMax 2.0 · 19.12.2011, 18:59

Сообщение от IAmHated

Напишите программу, проверяющую, является ли частью данного слова слово «сок».

Pascal

uses crt;
const sok = 'сок';
var Slovo,chast:string;
i,x:integer;
begin
   Write('Введите своё имя: ');readln(Slovo);
   For i:=1 to length(Slovo) do
   begin
   chast:=chast+slovo[i];
   if chast=sok then
        begin
        Writeln('Слово "сок" является частью слова "',slovo,'"');
        inc(x);
        end;
   end;
   If x=0 then writeln('Не является.');
end.

+1 спасибо , если помог.

@IAmHated · 19.12.2011, 19:01 **[ТС]**

Сообщение от WebMax 2.0

+1 спасибо , если помог.

Ой, забыл, мне нужно с помощью текстового файла

@IAmHated 1 / 1 / 2 Регистрация: 27.10.2009 Сообщений: 109
		1
	Разработайте программу решения задачи с использованием процедур и функций над строками и операций над множествами 19.12.2011, 18:48. Показов 1390. Ответов 2 Метки нет (Все метки) Напишите программу, проверяющую, является ли частью данного слова слово «сок». 0

@IAmHated 1 / 1 / 2 Регистрация: 27.10.2009 Сообщений: 109
	19.12.2011, 19:01 [ТС]	3
	Сообщение от WebMax 2.0 +1 спасибо , если помог. Ой, забыл, мне нужно с помощью текстового файла 0

Разработайте программу решения задачи с использованием процедур и функций над строками и операций над множествами

Решение