1 2fa= 762
2 271=185
поправил немного решение теперь все верно
Var a,k,i:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 7 do
begin
readln(a);
s:=s+a;
if a>0 then
inc(k);//<span>сколько раз в неделю температура была выше нуля
</span>end;
s:=s/7;//средняя температура.
end.
16 символов в алфавите
16 = 2^4 т.е. 4 бита на символ
3072 * 4 = 12288 бит
12288 / 8 = 1536 байт
1536 / 1024 = 1,5 кб
Красив тот, кто красиво поступает.