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>
Да может) .................
Ворд это универсальная штука при помощи нее мы можем даже создавать рисунки и редактировать текст, распечатывать раздичные рисунки и набраный текст созранение там очень простое,жмещь сохрнатить , и указываещь путь.ПРости за опечатки
Var n,m:integer;
mn:set of integer;
b:boolean;
begin
write('n = '); readln(n);
write('m = '); readln(m);
mn:=[];
while n>0 do
begin
mn:=mn+[n mod 10];
n:=n div 10;
end;
b:=false;
while m>0 do
begin
if (m mod 10) in mn then b:=true;
m:=m div 10;
end;
if b then writeln('Да') else writeln('Нет');
end.
Пример:
n = 13579
m = 6541
Да
Вот код полученый при убирании описок и тп
var
a, b, c: integer;
begin
a := 2;
b := a * 3 + 1;
if b > a + 5 then a := 4;
if b = a + 5 then a := b - a;
c := a * b + a - b;
writeln('c=', c);
end.
вывод
c=33