Вводится строчка со словами, нужно вывести первые - вопрос №17826114 от LiudaSerga2345 13.07.2021 12:17

Question

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

LiudaSerga2345 · Answer

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.

Объяснение:

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