1)Составьте программу вычисления произведения S=1*2+3*4+5*6+...+101*102 (в паскале)
2)составьте программу вычисления суммы S=0.5+1.5+2.5+... +98.5+99.5
2)составьте программу вычисления суммы S=0.5+1.5+2.5+... +98.5+99.5
More Questions From This User See All
Answers & Comments
var
com,i:integer;
begin
for i:= 1 to 101 do
if i mod 2 = 1 then
com:= com + i * i+1;
Writeln(com);
end.
Результат:
176902
2)
var
sum, x:Real;
begin
while x < 100 do begin
sum := sum + x;
x:= x+ 0.5
end;
Writeln(sum);
end.
Результат:
9950