Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления

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.
Поделиться:

Похожие статьи: