program cel; var k,n:integer; j:integer; y:real; begin for n:=-100 to 100 do k:=0; y:=(n*n-5*n+6)/(2*n-1); j:=y; if (j:=y) then k:=k+1; readln(n); writeln('Количество целых чисел=',k); readln end.
Я прав ?!?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.