While3. Даны целые положительные числа $$N$$ и $$K$$. Используя только операции сложения и вычитания, найти частное от деления нацело $$N$$ на $$K$$, а также остаток от этого деления.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
program While3; var A, B,temp,Num :Integer; begin Write('Введите A: '); Readln(A); Write('Введите B: '); Readln(B); temp:=A; Num:=-1; while temp>=0 do begin temp:=temp-B; inc(Num,1); end; Writeln('Результат деления на цело: ',num); Writeln('Остаток от деления: ',temp+B); end. |
Решение от Юрия:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
program while2; var a,b,n: real; begin n:=0; writeln ('Ввести числа a,b'); readln (a,b); while a>=b do begin a:=a-b; n:=n+1 end; writeln('Результат деления на цело: ',n); writeln('Остаток от деления: ',a); end. |
Другие задачи из раздела While можно посмотреть здесь.
Здесь потеряно «равно»..
Поправил и добавил в шапку.