Var n,m : Integer;
Begin
Write (' введите N: '); Readln (n);
Write (' введите M: '); Readln (m);
Writeln ((n+m)*(m-n+1) div 2);
end.
Мама - 4 б
школа - 5 б
байт - 4 б
информатика - 11 б
1 сентября - 11 б
Жадаю поспеху - 14 б
Если чётное, в конце (младший разряд) 0. На 4 - два нуля. На 8 - три. На 32 - пять нулей.
Var min, max, x: byte;
begin
max=0;
min:=100;
for x:= 10 to 99 do begin
if (x mod 10)+(x div 10)=7 then begin
writeln (x);
if x>max then max:=x;
if x
ответ Б)микрофон!!!!!!!!!!!!!!!!!!!!!!