Question

pascal Вывести на экран и подсчитать количество натуральных чисел типа longint, которые при делении на заданное простое число х, дают в остатке число у.

Answer 1

Программа:

Pascal:

var

 y: real;

 n, j: longint;

 i, x: integer;

begin

 write('x = ');  readln(x);

 write('y = ');  readln(y);

 j := MAXINT;

 for i := 1 to j do

   if i mod x = y then inc(n);

 writeln(n, ' чисел');

 

end.

Результат:

x =  5

y =  3

429496729 чисел