Решение задач по теме "Действия с целыми числами в Pascal"

Решение задачи №5

program five;

var
   A,B: integer;
begin
     write('A = ');
     readln(A);
     write('B = ');
     readln(B);
     writeln('Длина незанятой части = ', A mod B);
end.

Назад