1. у - сумма 1+2+3+...+9 (всего 9 проходов, на каждом увеличивается на i)
y=45
2. y - число проходов цикла от 10 до 5
у=7
3. Считаем по шагам...
[0 проходов цикла]: y=1, x=15
[1]: x=15-3=12, y=1*12=12
[2]: x=12-3=9, y=12*9=108
[3]: x=9-3=6, y=108*6=648
[4]: x=6-3=3, y=648*3=1944
[5]: x<=5.
у=1944
4. На последнем шаге x станет равным нулю (каждый раз уменьшается на 2, пока x>=0). Тогда y=0*y+0=0
y=0
А) 42, б)321..в)87...................................
Var
r, r1, r2, r3, r4 : real;
begin
write ('R1 = '); readln (r1);
write ('R2 = '); readln (r2);
write ('R3 = '); readln (r3);
write ('R4 = '); readln (r4);
r := r1 + (r2 * r3) / (r2 + r3) + r4;
writeln ('R = ', r);
end.
Var
st:real;
i,n:integer;
t:array[1..31]of integer;
begin
writeln('Температура в январе:');
for i:=1 to 31 do
begin t[i]:=random(-10,5);
write(t[i],' ');
st:=st+t[i];
if t[i]<0 then n:=n+1
end;
st:=st/31;
writeln;
writeln('Число дней с отр.температурой: ',n);
writeln('Средняя температура: ',st:1:1)
<span>end.</span>
Var r,v:real;
begin
write('R = ');
readln(r);
v:=4/3*pi*r*r*r;
writeln('V = ',v:5:2);
end.
Пример:
<span>R = 3
V = 113.10</span>