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;