ребят, подкорректируйте решение
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
kombat1488:
Надо, чтобы на вход входило любое целое число и оставались последние 4 цифры, либо чтобы выскакивало предупреждение о том, чтобы ввели число меньше 10000?
Ответы
Ответ дал:
0
В программе никаких ошибок нету, если надо, то ниже я добавил в программу код, который проверяет, чтобы значение переменных 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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад