Сколько точек с целыми координатами попадают в треугольникAOB находящийся в первой четверти? НАПИШИТЕ ПРОГРАММУ В ПАСКАЛЬ .ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!СРОЧНО!!!!!!!!!!!!!

Вопрос школьника по предмету Информатика

Сколько точек с целыми координатами попадают в треугольникAOB находящийся в первой четверти?
НАПИШИТЕ ПРОГРАММУ В ПАСКАЛЬ .ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!СРОЧНО!!!!!!!!!!!!!

Ответ учителя по предмету Информатика

Решение далеко не самое эффективное, но зато очень простое:

var a,b,x,y,k:integer;

begin

write(‘a, b:’);

readln(a,b);

k:=0;

for x:=0 to a do

 for y:=0 to b do

  if y<=-(x-a)*b/a then k:=k+1;

writeln(‘k = ‘,k);

end.

Пример:

a, b:
4 3
k = 11

PS. Точки, лежащие на осях координат и на стороне AB, тоже подсчитываются. Если они не нужны, то циклы начинайте с 1 и в условии используйте строгое равенство.