Очень прошу, помогите написать программу в паскале! - Паскаль, Turbo Pascal, PascalABC.NET

YewFloo · 12.05.2014, 17:47

Напишите программу, которая определяет, сколько раз в строке встречается слог 'МА'. Очень прошу, помогите!

Stilet · 12.05.2014, 18:01

Код:

var s:string;c:integer;
begin
 s:='mamagama';
 while pos('ma',s)<>0 do begin inc(c);delete(s,pos('ma',s),2); end;
 write(c); readln;
end.

Годится?

YewFloo · 12.05.2014, 18:38

Нужно чтобы в черном окне вписывать фразу и потом чтоб мне выводили ответ.

Stilet · 12.05.2014, 19:51

readln(s)
не?

ImmortalAlexSan · 14.05.2014, 02:30

Гы) В черном окне)))

12.05.2014, 17:47	#1
YewFloo Новичок Джуниор Регистрация: 12.05.2014 Сообщений: 2	Очень прошу, помогите написать программу в паскале! Напишите программу, которая определяет, сколько раз в строке встречается слог 'МА'. Очень прошу, помогите!

12.05.2014, 18:01	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Код: `var s:string;c:integer; begin s:='mamagama'; while pos('ma',s)<>0 do begin inc(c);delete(s,pos('ma',s),2); end; write(c); readln; end.` Годится? I'm learning to live...

12.05.2014, 19:51	#4
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	readln(s) не? I'm learning to live...

14.05.2014, 02:30	#5
ImmortalAlexSan Участник клуба Регистрация: 13.01.2009 Сообщений: 1,353	Гы) В черном окне))) "Тебе то может на меня и насрать, но твои глаза меня обожают!"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
ПОмогите с задачей на паскале!! очень прошу!	Astor	Помощь студентам	33	21.05.2008 20:38
Очень прошу помогите решить программу на Delphi:	tacer	Помощь студентам	1	26.12.2007 18:38

12.05.2014, 18:38	#3
YewFloo Новичок Джуниор Регистрация: 12.05.2014 Сообщений: 2	Нужно чтобы в черном окне вписывать фразу и потом чтоб мне выводили ответ.