Предмет: Информатика, автор: GGWPGGWP228

Помогите составить программу на языке паскаль!!!

Приложения:

uxaisha586: ничего не видно
GGWPGGWP228: Увеличь изображение

Ответы

Автор ответа: Puz1koO
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.

Похожие вопросы