22.12.2009, 21:57 | #1 (permalink) |
Новичок
Регистрация: 22.12.2009
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Срочно, помогите!
2.Напечатать рекурсивную функцию вычисления количества цифр натурального числа. |
22.12.2009, 21:57 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Тут уже были аналогичные топики, посмотрите их Помогите срочно пожалуйста. Паскаль. Помогите срочно Проблема с температурой, помогите плиз, срочно! Компьютер слабеет на глазах! Помогите срочно! помогите, пожалуйста, срочно Помогите выбрать телефон. Срочно. |
23.12.2009, 00:23 | #4 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Задача 1
Код:
uses crt; const text:string='ў®в в*ЄЁҐ ЇҐаҐ¬Ґ*л г **б ў ¤Ґ«ҐҐе'; var z,s:char;i,k,p,j:byte;t:string; begin clrscr; s:='Ґ'; text:=text+' '; for i:=1 to length(text) do if text[i]=' ' then begin p:=i; break end; for i:=1 to length(text) do if text[i]=' ' then begin t:=copy(text,p,i-p); p:=i; for j:=1 to length(t) do if t[j]='Ґ'then k:=k+1; if k=3 then writeln(t); k:=0; end; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|