найти остаток используя только вычитание Опции

[mans]

Вычислить остаток от деления двух чисел нацело, используя операцию вычитания

Помогите пжлста

[mans]

var a,b:integer;
begin
readln(a);
readln(b);
repeat
a:=a-b;
until a>b;
writeln(a);
end.

так же?

[TarasBer]

Почти.
1. У тебя в условии выхода из цикла знак перепутался.
2. Если условие изначально выполнено, то вычитать не надо - то есть тебе нужен цикл с предусловием, а не послусловием.

[mans]

понял))
var a,b,x:integer;
begin
readln(a);
readln(b);
while a>=b do begin
a:=a -b;
x :=x+1;
end;
writeln ('частное =',x);
writeln('остаток=',a);
end.

[TarasBer]

Ты забыл инициализировать i нулём.

[mans]

присвоить X значение 0? я че-т не понял.. в любом случае все работает))
терь нужно блок-схему построить..поможете?

[Krjuger]

Да именно так,потому что данный кампилятор не гарантирует,что любое число будет инициализироваться нулями,и воизбежание таких ляпов, люди приучают себя всегда так делать,чтобы не зависет от того,поддерживает ли среда это или нет.На работоспособность вашей программы это практически не повлияет,а вот если ваша программа будет запускаться сотни тысяч раз,там эта проблема может вылезти и давать иногда неверные результаты.Но все же лучше приучать себя с самого начала изучения.

Сообщение отредактировано: Krjuger - 30.12.2011 0:26