Решение задач по теме "Действия с целыми числами в Pascal"
Решение задачи №4
program four;
var
A,B: integer;
begin
write('A = ');
readln(A);
write('B = ');
readln(B);
writeln('Количество отрезков B = ', A div B);
end.
Решение задачи №4
program four;
var
A,B: integer;
begin
write('A = ');
readln(A);
write('B = ');
readln(B);
writeln('Количество отрезков B = ', A div B);
end.