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>
1.Сообщения, осведомляющие о положении дел, о состоянии чего-н.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
m,n:integer;
begin
Write('Введите М и N: '); Read(m,n);
if m<>n then begin m:=0; n:=1 end
else begin m:=2*m; n:=2*n end;
Writeln('m=',m,', n=',n)
end.
<u><em>Тестовые решения:</em></u>
Введите М и N: 5 7
m=0, n=1
Введите М и N: 4 4
m=8, n=8
1. Направляет запрос на сервер.
4. Выводит данные на экран.
5. Составляет отчет для вывода на печать.
Ответ: 1, 4, 5.