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