Строки. Подсчитать, сколько раз в дробной части исходного числа встречается комбинация цифр 33

@Zerok · Регистрация: 03.01.2013

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

Дано вещественное число a. Подсчитать, сколько раз в дробной части исходного числа встречается комбинация цифр 33. Использовать стандартные процедуры и функции в действиях над строками.

@Puporev · 08.01.2013, 14:55

Pascal

uses crt;
var a:real;
    s:string;
    c,i,k:integer;
begin
repeat
writeln('Введите вещественное число');
read(s);
val(s,a,c);
if c<>0 then write('Это не число, повторите ввод')
until c=0;
k:=0;
i:=pos(',',s)+1;
while i<length(s) do
if copy(s,i,2)='33' then
 begin
  k:=k+1;
  i:=i+2;
 end
else i:=i+1;
write('Комбинация 33 встречается в дробной части ',k,' рз.')
end.

@Zerok 0 / 0 / 0 Регистрация: 03.01.2013 Сообщений: 3
		1
	Строки. Подсчитать, сколько раз в дробной части исходного числа встречается комбинация цифр 33 08.01.2013, 14:43. Показов 1302. Ответов 1 Метки нет (Все метки) Дано вещественное число a. Подсчитать, сколько раз в дробной части исходного числа встречается комбинация цифр 33. Использовать стандартные процедуры и функции в действиях над строками. 0

	08.01.2013, 14:55

Опции темы

Строки. Подсчитать, сколько раз в дробной части исходного числа встречается комбинация цифр 33

Решение