1)
Program n1;
var sum,k,a: integer;
begin
sum:=0;
k:=0;
readln(a);
while a<>0 do
begin
sum:=sum+a;
k:=k+1;
readln(a);
end;
write('сумма: ',sum,'; срзнач: ',sum/k);
end.
2)
Program n2;
var a,c,sum: real;
k: integer;
begin
k:=1;
readln(a,c);
sum:=a;
repeat
sum:=sum+a*0.25;
k:=k+1;
until sum>=c;
write(k);
end.
Var x,y,z:integer; a,b:real;
Begin
write('x='); readln(x);
write('y='); readln(y);
write('z='); readln(z);
a:=((2*x)+(3*y)-z)/(3+(2*x));
b:=((x*x)+4)/(abs(y)-2);
writeln('a=',a); writeln('b=',b);
End.
Кто Управляет: Лисица
Кем Управляет: Ворона
Зачем Управляет: Для того, чтобы добыть сыр.
А если только пока строчкам,то:
Кто Управляет: Сестрица
Кем Управляет: Светиком
Зачем Управляет: Чтобы она запела.
120ₓ = 63₁₀
1 · x² + 2 · x¹ + 0 · x⁰ = 63
x² + 2x - 63 = 0;
D = 4 + 252 = 16²
x₁₂ = (-2 ± 16) / 2 = -9, 7
Отрицательная система счисления нам не подходит, поэтому ответом является 7.