Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления
Категория: Delphi/Pascal
2013-03-24 19:14:50
code: #pascal
program while3; uses crt; var n, k, chast, ost:integer; begin clrscr; repeat writeln('Введите число n'); readln(n); writeln('Введите число k'); readln(k); until(n>0) and (k>0); chast:=0; while n>=k do begin chast:=chast+1; n:=n-k; end; ost:=n; writeln('Частное ',chast); writeln('Остаток ',ost); readln; end.
Поделиться: