Даны положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Не используя операции умножения и деления, найти длину незанятой части отрезка A
Категория: Delphi/Pascal
2013-03-25 19:46:17
code: #pascal
program while1; uses crt; var a,b:integer; begin clrscr; repeat writeln('Введите число а '); readln(a); writeln('Введите число b (B<A) '); readln(b); until(b>0)and(a>b); while a>=b do a:=a-b; writeln('Результат ',a); readln end.
Поделиться: