Регистрация
arslanmax
17.05.2022 18:15
Информатика
Есть ответ 👍

ответь на вопрос надо умоляю вопросы на фото бытр

195
272
Посмотреть ответы 1

Ответы на вопрос:

vaselzhiriy
vaselzhiriy
4,7(87 оценок)
Var     i,n: integer;     s: string; begin writeln('введите текст'); readln(s); repeat   n: =pos(' ',s);   delete(s,1,n);   until n=0; for i: =1 to length(s) do       if s[i]='б' then n: =n+1; writeln('число букв "б" в последнем слове: ',n) end.

Популярно: Информатика