Ответ учителя по предмету Информатика
program u;
var s:string; e,i:integer;
begin;
read(s); writeln(s);
for i:=1 to length(s) do if (s[i]=’е’) or (s[i]=’Е’) then e:=e+1;
write(‘Длина строки ‘, length(s),’, третья буква ‘, s[3],’, кол-во букв «е» ‘, e);
end.
Похожие вопросы от пользователей
Помогите
2ая задача
двое отправляются одновременно на трехкилометровую прогулку. скорость первого- 2,5 км/ч, второго в 1,6 раз больше. дойдя до конца , второй поворачивает обратно . где он встретит первого?
задачи решите уравнением