1)var i,sum:integer;
begin
sum:=0;
i:=45;
while (i<=115) do begin
sum:=sum+i;
i:=i+1;
end;
writeln( 'Сумма = ', sum );
<span>end.
</span>2)var i:integer;
<span>begin
i:=2;
while (i<=150) do begin
If (i mod 2=0) and (i mod 13=0) then
writeln(i);
i:=i+1;
end;end.
3)</span>var c,A,i,N:integer;
begin
write('Введите целое число (N>0) N = ');read(N);
write('Введите целое число A = ');read(A);
c:=1;
i:=1;
while (i<=N) do begin
c:=c*A;
i:=i+1;
Writeln('A в степени ',i,' := ',c);
end;<span>end.</span>
У меня получается так
7 лисят, 2 волчат и 5 медвежат
Program xx;
var a,b,c,x:real;
begin
readln(a,b,c);
x:=(-(b)+sqrt(sqr(b)-(4*a*c)))/(2*a);
writeln('x1 = ',x:2:2);
x:=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
writeln('x2 = ',x:2:2);
end.
#010101 цвет..............