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

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

program four;

var
   A,B: integer;
begin
     write('A = ');
     readln(A);
     write('B = ');
     readln(B);
     writeln('Количество отрезков B = ', A div B);
end.

Назад