Определите результат выполнения программы a=8; b=16; C=9; print(a//b+c)

Question

Информатика: Определите результат выполнения программы a=8; b=16; C=9; print(a//b+c)​

sir125 · Accepted Answer

// PascalABC.Net 3.0, сборка 1052 const   Rus=[ А .. Я ]; var   s:string;   i,k,t:integer;   c,c1,tc,sc:char;   f:array[ А .. а ] of byte; // а - это для Ё   ch:array[ А .. а ] of char; begin   Write( Введите строку: ); Readln(s);   for c:= А to а do begin f[c]:=0; ch[c]:=c end;   k:=0;   for i:=1 to Length(s) do begin     c:=UpCase(s[i]);     if c in Rus then begin Inc(f[c]); Inc(k) end     else       if c= Ё then begin Inc(f[ а ]); Inc(k) end;   end;   Writeln( Количество русских букв равно ,k);...

Определите результат выполнения программы a=8; b=16; C=9; print(a//b+c)​

MOGZ ответил