Question

Написать алгоритм на языке программирования Паскаль и использованием переменного while

Первый пример:
$S= \sqrt{5} + \sqrt{15} + \sqrt{20} + ... + ...$, пока S <=100
Второй пример:
P= -10*(-9)*(-8)*...*(-1)

Answer 1

program SquareRootSum;
        var S: real;
               i: integer;
begin
    i := 5;
    S := 0;
    while S <= 100 do
    begin
        S := S + sqrt(i);
        i := i + 5;
    end;
    WriteLn(S)
end.

--------------------------------
program Product;
    var P: real;
        i: integer;
begin
    P := 1;
    i := -10;
    while i <= -1 do
    begin
        P := P*i;
        i := i+1
    end;
    WriteLn(P)
end.

Сумме присваиваем начальное значение 0, потому что мы потом будем прибавлять к ней числа. А произведение присваиваем начальное значение 1 (если был бы 0, то все произведение было бы равно нулю, а нам это не нужно).

Answer 2

1)
var
    s := 0.0;
    i := 0;

begin
    repeat
        i := i + 5;
        s := s + sqrt(i);
    until s > 100;
   
    WriteLn(s);
end.

2)
var
    p := 1;
    i := -10;

begin
    repeat
        p := p * i;
        i := i + 1
    until i >= 0;
   
    WriteLn(p);
end.