Паскаль. Вычислить сумму ряда 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

старше будет девочка потому что там написано втрое

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.