ПОМОГИТЕ,ПОЖАЛУЙСТА!!!БУДУ БЛАГОДАРЕН!!!
Дана строка, состоящая из вашего имени и фамилии (Например, а:='Иван Иванов'). Составить программу, которая подсчитывает количество букв, с которой начинается фамилия(в данном примере количество букв и)
Ответы
Ответ дал:
1
Ответ:
Я так понимаю язык нужно использовать Pascal?
Если да, то:
var a, l:string;
i, n:integer;
begin
read(a);
i:=0;
n:= pos(' ', a);
l:= a[n+1];
while pos(l, a) > 0 do begin
i:= i + 1;
Delete(a, pos(l, a), 1);
end;
writeln(i);
end.
Объяснение:
Код чувствителен к регистру! (Если фамилия начинается с большой буквы, то и искать он будет только большие буквы!)
dan4ikmix1:
Спасибо
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад