Общий вес 8192 разделить на количество символов 1024 = 8 битов весит каждый символ
Т. к. а не может быть одновременно быть больше 1000 и меньше 100, никогда не выйдет 'Ошибка'
А)а*х*х+b*x+c;
б)v+(a*t*t/2);
в)1/2(а+б)*h;
*-это знак умножения .Но записывать надо как*только посередине.и еще г) и д) я еще не проходила.
Var a,i,n,k : integer;
Begin
randomize;
Readln(n);
for i:=1 to n do begin
a:=random(7)-3;
if a=0 then k:=k+1;
writeln(i,' число = ',a);
end;
Writeln('Количество 0: ',k);
end.