Прошу помощи в написании программы!

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

Question

Информатика

Илия

29 ноября, 12:29

Прошу помощи в написании программы!

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

+4

Ответы (1)

Знаете ответ?

Палуня · Answer 1

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.

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

Прошу помощи в написании программы!

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