While1. Даны положительные числа $$A$$ и $$B$$ ($$A > B$$). На отрезке длины $$A$$ размещено максимально возможное количество отрезков длины $$B$$ (без наложений). Не используя операции умножения и деления, найти длину незанятой части отрезка $$A$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
program While1; var A, B,temp :Integer; begin Write('Введите A: '); Readln(A); Write('Введите B: '); Readln(B); temp:=A; while temp>=0 do temp:=temp-B; Writeln(temp+B); end. |
Другие задачи из раздела While можно посмотреть здесь.
Не знаю зачем я вводил переменную temp. Наверно такое настроение было 🙂
uses PT4;
var a,b:real;