"n" школьников делят "к" яблок поровну,неделящийся остаток остается в корзине.Сколько яблок достанется каждому и сколько останется в корзине? Использовать язык Паскаль
"n" школьников делят "к" яблок поровну,неделящийся остаток остается в корзине.Сколько яблок достанется каждому и сколько останется в корзине?
Использовать язык Паскаль
Гость
Ответ(ы) на вопрос:
Гостьесли не ошибаюсь, это она. либо там выведется кол.во яблок каждому ученику.
program ...;
var
n, a, k, y : integer;
begin
readln (y, k);
a:= y mod k
y:= y div k
writeln (a, y);
end.
Не нашли ответ?
Похожие вопросы