Сколько точек с целыми координатами попадают в треугольникAOB находящийся в первой четверти?
НАПИШИТЕ ПРОГРАММУ В ПАСКАЛЬ .ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!СРОЧНО!!!!!!!!!!!!!
НАПИШИТЕ ПРОГРАММУ В ПАСКАЛЬ .ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!СРОЧНО!!!!!!!!!!!!!
Answers & Comments
Verified answer
Решение далеко не самое эффективное, но зато очень простое: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 и в условии используйте строгое равенство.