Типовые задачи на строковые переменные
Задача
1.
Дана строка, содержащая 20 символов.
Подсчитать сколько раз буква F
встречается
в данной строке.
{подсчет
количества
букв
F
в
слове}
Program
zadacha
(input,
output);
var
s
:
string[20];
i,
k:
integer;
begin
writeln
(‘Введите
слово.
Количество
символов в нем не должно превышать 20
‘);
readln
(s)
;
k:=0;
for
i:=l
to
20
do
if
s[i]
=’f’
then
k:=k+l;
writeln
(‘
буква
F
встречается',
k,
‘
раз
(a)');
end.
Задача
2.
Дана строка, содержащая 20 символов.
Подсчитать количество цифр, входящих
в данную строку.
{подсчет
количества
цифр
в
слове}
Program
zadacha
(input,
output);
var
s:
string[20];
n:
string[10];
i,
k,
j:
integer;
begin
writeln
(‘Введите
строку
символов');
read
(s);
k:= k+1;
n:='0123456789';
for
i:=l
to
20
do
for
j:=l
to
10
do
if
s[i]
=
n[j]
then k:=k+l;
write
( ‘в строке ‘,
s,’
‘,
k,
'
-цифр');
end.