Question

Ребят, подкорректируйте решение Var n,m,t,k,f:integer; begin readln(n,m); k:=n mod 10000; f:=m mod 10000; t:= ((f-1) div k)+1; writeln(t); end. Нужно чтоб на вход n и m были не больше 10000

Answer 1

В программе никаких ошибок нету, если надо, то ниже я добавил в программу код, который проверяет, чтобы значение переменных m и n были не больше 1000:

Var n,m,t,k,f:integer;

begin

readln(n,m);

if (n > 1000) or (m > 1000) then

 writeln('Ошибка. Значение n и m должны быть не больше 1000')

else begin

k:=n mod 10000;

f:=m mod 10000;

t:= ((f-1) div k)+1;

writeln(t);

end;

end.

Answer 2

Ваше решение близко к правильному, но есть несколько ошибок. Вам нужно учесть ограничение входных значений n и m до 10000. Также, стоит добавить проверку на деление на ноль (k должно быть ненулевым). Вот корректированное решение:

pascalCopy code
Var
  n, m, t, k, f: integer;
  
begin
  readln(n, m);
  
  k := n mod 10000;
  f := m mod 10000;
  
  if k = 0 then
  begin
    writeln('Ошибка: k равно нулю.');
  end
  else
  begin
    t := ((f - 1) div k) + 1;
    writeln(t);
  end;
end.

В этом решении добавлена проверка на нулевое значение k (деление на ноль), и выводится сообщение об ошибке в таком случае. В противном случае выполняется ваша логика.