Задача Не про спиннеры

Подготовка к олимпиаде по информатике:

Задача Не про спиннеры

Саша совсем не любит спиннеры, поэтому он рисует в тетрадке. Он взял тетрадный лист из N × M клеточек и пронумеровал все клетки различными числами. Теперь ему стало интересно, сколько различных прямоугольников он может вырезать из этого листа бумаги по границам клеточек.

Программа получает на вход два числа N и M – размеры исходного листа. Все числа – целые положительные, не превосходящие 75000.

Программа должна вывести одно число – количество прямоугольников, которые можно вырезать из данного листа бумаги (весь лист целиком также считается одним из возможных прямоугольников). Примеры входных и выходных данных

Система оценивания

Решение, правильно работающее только для случаев, когда все входные числа не превосходят 10, будет оцениваться в 40 баллов.

Решение, правильно работающее только для случаев, когда все входные числа не превосходят 200, будет оцениваться в 70 баллов.

var n,m,s,a,k,b,c:integer; 
begin 
 writeln('Введите количество строк и столбцов через пробел'); 
 readln(n,m); 
 a:=1; 
 b:=n; 
 while a<=n do 
  begin 
   s:=s+b; 
   b:=b-1; 
   a:=a+1; 
  end; 
 c:=s*m; 
 a:=2; 
 b:=m-1; 
 while a<=m do 
  begin 
   k:=k+s*b; 
   b:=b-1; 
   a:=a+1; 
  end; 
 s:=c+k; 
 writeln('Можно вырезать ',s,' прямоугольников'); 
end.

var n,m,s,a,k,b,c:integer;

begin

writeln('Введите количество строк и столбцов через пробел');

readln(n,m);

a:=1;

b:=n;

while a<=n do

begin

s:=s+b;

b:=b-1;

a:=a+1;

end;

c:=s*m;

a:=2;

b:=m-1;

while a<=m do

begin

k:=k+s*b;

b:=b-1;

a:=a+1;

end;

s:=c+k;

writeln('Можно вырезать ',s,' прямоугольников');

end.

Будем благодарны, если вы поделитесь уроком со своими друзьями в социальных сетях, оставите отзыв и посмотрите другие материалы на нашем сайте.

Задача Не про спиннеры

Похожие записи:

Добавить комментарий Отменить ответ