Var A,k:integer;
Begin
k:=-1;
Repeat
Read(A);
if A mod 2 = 0 then k:=k+1;
Until A=0;
WriteLn('k = ',k)
End.
Я еще не студент!!!Понимаете мне еще 12 то нет!!!А баллы заработать хочется.
Пример в Excel 2003
-----------------------------------
Тут по формуле нужно
2^i = N
i - количество бит
N - количество символов которые можно закодировать
выходит 2^6= 64
1 INPUT "S = "; S
2 PRINT SQR(S / 3.14)