Паскаль. Вычислить сумму ряда 1+1.5+2+2.5+3+3.5+ .. + 30.

var

 a,s: real;

begin

a:=1;

s:=1;

repeat  

 a:=a+0.5;

 s:=s+a;

 until a=30;

 writeln(s);

end.

ответ: 914.5

uses crt; var  i,s: integer; begin  i: =2; s: =1;   while i< =10 do  begin    s: =s*i;     i: =i+2;   end;   write(s); end.

компьютер телфон и иже с ними