program z1;
var a,h,i,j,k:integer;
begin
readln(a);
readln(h);
k:=0;
for i:=1 to a-1 do
for j:=1 to h-1 do
if ((i-0)/(trunc(a/2)-0)>(j-0)/(h-0)) and
((i-a)/(trunc(a/2)-a)>(j-0)/(h-0)) then k:=k+1;
writeln(k);
end.

Превышен лимит времени исполнения. (1.091s) а нужно уложиться в 1 секунду. Что можно сделать?

Гугл в помощь я написал тебе , дальше сам....
Не нужно ждать что все дадут так )) нужно учиться и объединить некоторое что даст тебе меньше нагрузку или можно
for i:=1 to a-1 do begin
---------
Я стар уже для этого просто
________
посл. ред. 22.10.2018 в 22:37; всего 3 раз(а); by Release