3 вопроса. пример Первый вопрос четвертая или меньше? да Вторая или меньше? нет. Третья? нет. Осталась четвертая. И так в любом направлении.
Ответ:
program Multi3;
var
A: array [1..3] of Double;
i: Integer;
p: Double;
b: Boolean;
begin
Randomize;
Write ('Исходные числа:');
WriteLn;
for i := 1 to 3 do begin
A [i] := Random (4000) / 1000 - 1; // заполняем числами, чтоб были и положительные и отрицательные
Write (A[i] :10 :3, ' ');
end;
b := False;
p := 1;
for i := 1 to 3 do begin
if Abs (A [i]) < 1 then begin
b := True; // включаем флаг, если найдено хотя бы одно подходящее число
p := p * A [i];
end;
end;
WriteLn;
if b then
WriteLn ('Произведение = ', p :10 :3)
else
WriteLn ('Произведение не определено.');
ReadLn;
end.
1) В цикле по значениям переменой i от i=1 до i=19 выполнять сложение вида: s=s+i/(i+1)
на паскале это выглядит так:
var s:real;
begin
for var i:=1 to 19 do s:=s+i/(i+1);
writeln('Ответ: ',s);
end.
2) сложная прогрессия какая-то... могу предположить, что вида: 1+2*(i-1)+s_i-1
т.е.
1) 1+2*(1-1)+0=1
2) 1+2*(2-1)+1=4
3) 1+2*(3-1)+4=9...
тогда на паскале алгоритм:
var s,si:real;
begin
for var i:=1 to 10 do begin
si:=1+2*(i-1)+si;
s:=s+si;
end;
writeln('Ответ: ',s);
end.