Ответы 1
var k,p,n:integer;
begin
readln(k,p);
n:=p div k * k;
if (p mod k) < (k-p mod k) then writeln(n)
else if (p mod k) > (k-p mod k) then writeln(n+k)
else writeln(n,' и ',n+k);
end.
Пример:
4 15
16
begin
readln(k,p);
n:=p div k * k;
if (p mod k) < (k-p mod k) then writeln(n)
else if (p mod k) > (k-p mod k) then writeln(n+k)
else writeln(n,' и ',n+k);
end.
Пример:
4 15
16
Премиум статус
Получайте самые быстрые
ответы на свои вопросы
ответы на свои вопросы
У вас остались
вопросы?
вопросы?