Nikita_Lina1305
?>

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

Информатика

Ответы

monolit-kolomna

var str: string[30];

x: char;

i, k: integer;

  begin

k := 0;

x := 'b ';

readln(str);

for i := 1 to length(str)

do begin if str[i] = x then k := k + 1; end;

writeln(k);

end.

Объяснение:

проси если не так

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вводится строчка со словами, нужно вывести первые буквы каждого слова написанного через пробел на языке паскаль
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ramzaev09
Butsan-Bagramyan
sveta740450
михаил
cosmetic89
shuramuji
delena6467
lsuvorova1987
Galina-Marat1096
Adassa00441
klykovav672
Aleksei806
Анна Елена
anitanemtsewa
timpavilion23