Написать алгоритм на языке программирования Паскаль и использованием переменного while
Первый пример:
, пока S <=100
Второй пример:
P= -10*(-9)*(-8)*...*(-1)
Ответы
Ответ дал:
0
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, то все произведение было бы равно нулю, а нам это не нужно).
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, то все произведение было бы равно нулю, а нам это не нужно).
Ответ дал:
0
Оперативно, спасибо.
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад