Прошу помощи в написании программы!!!
Сколько букв "У" в заданном слове стоит на четных местах? (тема -операции над массивами)

Ответы (1)

Джанаш 16.04.2025 3

Var s:string;
k,i:integer;
begin
writeln('vvedite slovo');
readln(s);
for i := 1 to length(s) do
if (s[i]='y') and (i mod 2=0)
then inc(k);
writeln ('k=',k);
readln ;
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ

Прошу помощи в написании программы!!! Сколько букв "У" в заданном слове стоит на четных местах? (тема -операции над массивами)

Думаешь ответы не верны?

Прошу помощи в написании программы!!!
Сколько букв "У" в заданном слове стоит на четных местах? (тема -операции над массивами)