3. Берілген блок-сызбадағы алгоритмнің псевдокоды мен программасын жазыңыз.

игрок мог поставить крестик в любую клетку поля, их 64; по формуле  =n узнаем, какое кол-во информации получил второй игрок:

=64; i=6. ответ: 6 бит

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

1.найти разность показаний счетчика на конец месяца и на начало месяца.

2.умножить на цену одного квт/часа

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.