Презентация, доклад на тему Обработка строковых данных. Решение задач

и единиц.
Входные данные
В единственной строке записана последовательность нулей и единиц (без пробелов). Суммарное количество цифр не превышает 100.
Выходные данные
В единственную строку нужно вывести искомую длину цепочки нулей.

Исполнить для
00101110000110

begin inc(k);
if k >m then m:=k end
else k:=0;
end;
writeln(m);
end.

N (0 <= N <= 10100).
Выходные данные
выведите одно число – количество кругляшей в числе N.

i:=1to length(s)do begin
if(s[i]='8') then c:=c+2;
if(s[i]='0') or (s[i]='6') or (s[i]='9') then c:=c+1;
end;
write(c);
end.

палиндромом, т.е. числом, которое одинаково читается слева направо и справа налево.
Входные данные
содержит натуральное число N (1000 ≤ N ≤ 9999).
Выходные данные
вывести слово «YES», если число N является палиндромом, или «NO» – если нет.

write('NO');
End.

x div 1000;
x2 := x div 100 mod 10;
x3 := x div 10 mod 10;
x4 := x mod 10;
If (x1=x4) and (x2=x3) then
write('YES') else write('NO');
End.

числом, которое одинаково читается слева направо и справа налево.
Входные данные
содержит натуральное число N (10 ≤ N ≤ 32000).
Выходные данные
вывести слово «YES», если число N является палиндромом, или «NO» – если нет.

to n div 2 do
if a[i]<>a[n-i+1] then k:=0;
if k=1 then write('YES') else write('NO');
End.