2) writeln (copy(s1,2,6));
3) delete (s,1,5);
Вставка, смотря какой редактор, если основа MS то на главной панели.
Var s:int64;
a,b,i:longint;
beginassign(input,'d.in');
reset(input);
assign(output,'d.out');
rewrite(output);
s:=0;
read(a,b);
if odd(a) then i:=a else i:=a+1;
while i<=b dobegins:=s+i;
inc(i,2);
end;
writeln(s);
<span>end.</span>
#include<iostream>
using namespace std;
int main() {
int a;
int b;
int n=0;
cin >> b;
for (int i = 1; i <=b; i++) {
a = i;
n+=a;
}
cout << n << endl;
system("pause");
}
Var
a, b:real;
begin
readln(a, b);
writeln(a * b * 0.5);
end.