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 ;
<span>end.</span>
1. Ручка взята. 2.2. 3.положить ручку на стол.4.окончено.
В расширенной записи двухзначное число в 14-ричной системе счисления записывается в виде N = 14*a+b, a,b=0,1,2,..13
Если число N оканчивается на 8, то N = 14*a+8
Эта формула порождает ряд чисел: 8, 22, 36, 50, 64, 78 ... но 78 > 70, поэтому ответом будет ряд чисел 8, 22, 36, 50, 64.
Freeware<span> – это те программные продукты и утилиты, которые в основном распространяются и используются без всяких ограничений</span>
Может надо перегрузить этот фаил. Я всегда перегружаю и всё работает.