Прямоугольный треугольник, определить сколько единичных квадратиков Опции

[Anya]

Дано прямоугольный треугольник (его два катета) размером до 2-х миллиардов.
Определить сколько единичных квадратиков может в них поместиться.
Спасибо за внимание,
Аня

[Михаил Густокашин]

вот. в форуме не писал - все 25 раз проверил. только у меня Паскаля нет.

Код

var
 a, b, i : longint;
 sum, tmp : extended;
begin
 read(a, b);
 sum := 0;
 for i := 1 to a-1 do begin
   tmp := i;
   tmp := (tmp/a)*b;
   sum := sum + trunc(tmp);
 end;
 writeln(sum:0:0);
end.

Сообщение отредактировано: Михаил Густокашин - 22.02.2005 22:47