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.
И.п- (есть) Мечи
Р.п-(нет) мечей
Д.п-(рад) мечам
В.п-(вижу) мечи
Т.п- (любуюсь) мечами
П.п-( говорю о) мечах
85+29×162-783=4000 10
FA0 16
7640 8
111110100000 2
read(n);
if (n>99) and (n<1000) then writeln('Yes');
384бит это же 384 : 8 = 48 байт. решение этой задачи проста. Существует формула : информационный объём равен количество умножить на биты = I= K * I i - грубо говоря это степень в данной задаче числа 64.