Напишите программу

@shaboy · Регистрация: 04.05.2011

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

@marshal · 05.05.2011, 12:35

Pascal

var s:string;
begin
writeln('строку введите');
readln(s);
if pos('сок',s)=0 then begin
s:='нет'+s+'нет';write(s);end
else 
if s='сокол' then writeln('слово сокол')
else writeln('в слове есть сок');
end.

Что здесь трудного?

@Smarsa · 05.05.2011, 13:44

помогите пожалуйста.
создать матрицу
заданные условия
10203
10203
10203
простейшая, видимо
прошу как можно быстрее.

@shaboy -2 / 0 / 0 Регистрация: 04.05.2011 Сообщений: 3
		1
	Напишите программу 04.05.2011, 22:35. Показов 1259. Ответов 2 Метки нет (Все метки) Напишите программу, проверяющий, является ли частью данного слова слово "сок". Если ответ отрицательный, то добавьте к введенному слову слово "нет" в начало и конец. Если ответ "да", то проверьте, не является ли оно словом «сокол». 0

@Smarsa 0 / 0 / 0 Регистрация: 05.05.2011 Сообщений: 3
	05.05.2011, 13:44	3
	помогите пожалуйста. создать матрицу заданные условия 10203 10203 10203 простейшая, видимо прошу как можно быстрее. 0

Опции темы

Напишите программу

Решение