Паскаль , написала я программу по -ввести три числа, найти их сумму, произведение и среднее арифметическое пример введите три числа 4 5 7 4+5+7=16 4×5×7=140 (4+5+7)÷3=5.333333 получилось вот что, выдает ошибку, в чём сос program circle_8; var a,b,c,sum,p,sr: real; begin writeln ('введите a,b,c'); read (a,b,c); sum: =a+b+c; p: =a*b*c; sr: =(a+b+c)/3; writeln(sum); (a,'+',b,'+',c,'=',sum); writeln(p); (a,'*',b,'*',c,'=',p); writeln(sr); (a,'+',b,'+',c,'/',3,'=',sr); end.

program threenumbers;

var

    numberone : double;

    numbertwo : double;

    numberthree : double;

    sum : double;

    product : double;

    average : double;

begin

    writeln('введите три числа: ');

    write('число 1 --> ');

    readln(numberone);

    write('число 2 --> ');

    readln(numbertwo);

    write('число 3 --> ');

    readln(numberthree);

    sum : = numberone + numbertwo + numberthree;

    product : = numberone * numbertwo * numberthree;

    average : = (numberone + numbertwo + numberthree) / 3.0;

    writeln('сумма = ', sum: 6: 1);

    writeln('произведение = ', product: 6: 1);

    writeln('среднее = ', average: 6: 1);

end.

program circle_8;

var a,b,c,sum,p,sr: real;  

begin

writeln ('введите a,b,c');

read (a,b,c);

sum: =a+b+c;

p: =a*b*c;

sr: =(a+b+c)/3;

writeln(a,'+',b,'+',c,'=',sum);

writeln(a,'*',b,'*',c,'=',p);

writeln('(',a,'+',b,'+',c,')/',3,'=',sr);  

end.

Сумма арифметической прогрессии от 20 до 22015, всего 21996 чисел. 20 + 21 + + 22015 = (22015 + 20)*21996/2 = 242340930 прибавили 4 242340930 + 4 = 242340934 перевели в двоичную систему 242340934 = 1101110110010011110111000110 я это сделал калькулятором, а вы можете по алгоритму евклида. нулей здесь 11.