Суть программы в том, чтобы пройти цикл, в условии которого спрашивается, является ли разность переменных n и s больше нуля. В этом цикле каждый раз происходит увеличение s на 20, а n на 15. Давай пройдем этот цикл:
s = 127, n = 250
n - s = 250 - 127 > 0, проходим цикл
s = 127 + 20 = 147, n = 250 + 15 = 265
Так цикл будет повторяться до тех пор (а это событие произойдёт, поскольку к s прибавляется больше, чем к n, так что переменная s в какой-то момент перегонит n), пока s не станет больше n - тогда разность s и n будет меньше нуля и цикл уже не выполнится. Я так понял, нужно вывести s, при котором цикл уже работать не будет. Здесь ничего не остаётся, кроме как считать. Я этого здесь делать не буду, потому что всё даже не поместится. Я лишь выполнил эту программу. Ответом будет число s = 627. Прошло всего 25 циклов.
Задание 1:
Var s,i,n : integer;
z: array [1..100] of integer;
Beginfor
i:= 1 to 8 do
Read (z[i]);
end.
Задание 2:
Var s,i,n : integer;
z: array [1..100] of integer;
BeginRead(n);
for i:= 1 to n do
Read (z[i]);
for i:= 1 to n do
begin
if z[i]<0 then s:= sqr(z[i]);
Write(s);
end;
end.
Задание 3:
Var s,i,n : integer;
z: array [1..100] of integer;
Begin
Read(n);
for i:= 1 to n do
Read (z[i]);
s:=0;
for i:= 1 to n do
if z[i]>10 then s:= s+1;
Write('koll=', s);
end.
(1+х)^22:
Power(1+x,22);
Корень квадратный из 1+х^23:
sqrt(power(1+x,23));
<span>cos^2 x^2:
sqr(cos(x*x))
</span>
А B C A V B ^ C
1 0 1 1
1 1 0 0
1 1 1 1
0 1 1 1
0 1 0 1
0 0 0 0
var
a, b: real;
n: integer;
function arif_mem(a, b: real; n: integer): real;
begin
if n = 1 then arif_mem := a;
if n > 1 then arif_mem := arif_mem(a, b, n - 1) + b;
end;
function arif_sum(a, b: real; n: integer): real;
begin
if n = 1 then arif_sum := a;
if n > 1 then arif_sum := arif_sum(a, b, n - 1) + arif_mem(a, b, n);
end;
begin
write('введите первый член прогрессии:');
readln(a);
write('введите разность прогрессии:');
readln(b);
write('введите номер члена прогрессии:');
readln(n);
writeln(n, '-й член прогрессии равен :', arif_mem(a, b, n):8:2);
writeln('сумма ', n, ' членов прогрессии равна :', arif_sum(a, b, n):8:2);
end.