Найти длину незанятой части отрезка A - Pascal ABC

Формулировка задачи:

Даны целые положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Используя операцию взятия остатка от деления нацело, найти длину незанятой части отрезка A. Желательно с комментариями. От меня лоис.

Код к задаче: «Найти длину незанятой части отрезка A - Pascal ABC»

textual
program pr;
var a,b,c:integer;
begin
repeat
read(a,b);//вводим
until (b>0) and(a>b); // условия
c:=a mod b; // переменная под результат и собственно операция
writeln (c); //выводим
end.

5   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ