Const mile = 7;
const verst = 500;
const saj = 3;
const arsh = 28;
const dm = 25.4;
const mm = 1000000;
var x, km: real;
begin
write('Введите число для перевода из миль в километры: ');r
eadln(x);
km := ( x * mile * verst * arsh * saj * dm ) / mm;
writeln(x, ' -> ', km);
<span>end.</span>
Ваша схема, в общем, верна. Её можно чуть упростить, убрать проверку Р.
var
c, k, n: integer;
begin
writeln('Введите процент: ');
readln(n);
while k < 100 do
begin
k := k + n;
inc(c);
end;
writeln(c * 12, ' мес.');
<span>end.</span>
<span>8 единиц, займет 8 бит или 1 байт
</span>
Фрезерования это правильный ответ