Строка: Определить, сколько раз в строке встречались двузначные числа

@Madgenta · Регистрация: 03.06.2012

Вводится строка символов, заканчивающаяся точкой. Программа должна определить, сколько раз в строке встречались двузначные числа.

@Das Gespenst · 12.06.2012, 16:58

Вот:

Pascal

program z;
var s,s1:string; f,i,j,k,n,a:integer;
begin
     writeln('Введите текст');
     readln(s);
     f:=0; k:=0;
     for i:=1 to length(s) do
         begin
              s1:=copy(s,i,2);
              val(s1,a,n);
              for j:=10 to 99 do
                  if a=j
                     then
                         begin
                              k:=k+1;
                              f:=1;
                         end;
         end;
     if f=0
        then
            writeln('В тексте нет двухзначных чисел')
     else
         writeln('В тексте ',k,' двухзначных числа(ел)');
end.

@Madgenta 0 / 0 / 0 Регистрация: 03.06.2012 Сообщений: 3
		1
	Строка: Определить, сколько раз в строке встречались двузначные числа 12.06.2012, 16:48. Просмотров 1369. Ответов 1 Метки нет (Все метки) Вводится строка символов, заканчивающаяся точкой. Программа должна определить, сколько раз в строке встречались двузначные числа. 0

Опции темы

Строка: Определить, сколько раз в строке встречались двузначные числа

Решение