Указать порядковые номера символов, составляющих слово ‘Паскаль’, если таких символов нет – выдать сообщение об этом.

@SPORTsMEN000 · Регистрация: 28.11.2009

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

помогите пожалуйсьа написать программу на паскале
Указать порядковые номера символов, составляющих слово ‘Паскаль’, если таких символов нет – выдать сообщение об этом.

Добавлено через 7 часов 5 минут
помогите пожалуйста

@Puporev · 15.03.2010, 09:35

Pascal

uses crt;
const p:string='Паскаль';
var s:string;
    i,k:byte;
begin
clrscr;
writeln('Введите текст:');
readln(s);
k:=0;
writeln('Порядковые номера символов, входящих в слово ',p);
for i:=1 to length(s) do
if pos(s[i],p)>0 then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('Таких символов нет!');
readln
end.

@SPORTsMEN000 · 15.03.2010, 09:48 **[ТС]**

спасибо большое

@SPORTsMEN000 1 / 1 / 0 Регистрация: 28.11.2009 Сообщений: 85
		1
	Указать порядковые номера символов, составляющих слово ‘Паскаль’, если таких символов нет – выдать сообщение об этом. 14.03.2010, 23:28. Показов 1718. Ответов 2 Метки нет (Все метки) помогите пожалуйсьа написать программу на паскале Указать порядковые номера символов, составляющих слово ‘Паскаль’, если таких символов нет – выдать сообщение об этом. Добавлено через 7 часов 5 минут помогите пожалуйста 0

@SPORTsMEN000 1 / 1 / 0 Регистрация: 28.11.2009 Сообщений: 85
	15.03.2010, 09:48 [ТС]	3
	спасибо большое 0

Опции темы

Указать порядковые номера символов, составляющих слово ‘Паскаль’, если таких символов нет – выдать сообщение об этом.

Решение