profile
Опубликовано 4 года назад по предмету Информатика от sarasametova

даны два положительних числа а и b.не применяя операции деления найти остаток от деления а на b

  1. Ответ
    Ответ дан Sky09
    uses crt;
    var a,b,c,i:integer;
    begin
      write('a='); readln(a);
      write('b='); readln(b);
      i:=1;
      while c<a do
      begin
        c:=b*i;
        i:=i+1;
      end;
      c:=c-b;
      writeln('остаток(a:b)=',a-c);
    end.
Самые новые вопросы