Предмет: Информатика,
автор: GGWPGGWP228
Помогите составить программу на языке паскаль!!!
Приложения:
![](https://files.topotvet.com/i/13f/13f6a37cb7e3369c4e1c5ec5d34c0722.jpg)
uxaisha586:
ничего не видно
Ответы
Автор ответа:
1
var
k,n,i:integer;
begin
readln(k,n);
i:=n mod k;
if i<=k div 2 then writeln(i)
else writeln(abs(i-k));
end.
Похожие вопросы
Предмет: Литература,
автор: zzzzzzgfffffhg
Предмет: Английский язык,
автор: Аноним
Предмет: Русский язык,
автор: igorcebotari
Предмет: Математика,
автор: matvey06rus
Предмет: Математика,
автор: matvey06rus