Цикл по условию

@mexx1994 · Регистрация: 11.04.2010

Author24 — интернет-сервис помощи студентам

С клавиатуры вводятся целые числа a и b .Найти остаток от деления ,не используя операции div and mod ..
Заранее спасибо

@yamilramilev · 16.10.2010, 17:21

Pascal

program Project2;
var a,b:integer;
function NOD(m,n:integer):integer;
begin
  while m<>n do
    if m<n then
      n:=n-m else m:=m-n;
  result:=m;
end;
 
begin
readln(a,b);
if a<b then writeln('остаток от деления =',a) else writeln('остаток от деления =',a-b*nod(a,b));
readln;
 
 
end.

@mexx1994 · 16.10.2010, 17:49 **[ТС]**

а можно ещё прощё?
мы функцию не проходили..)

@Sna1peR · 16.10.2010, 17:59

Вот те проще

Pascal

Var
a,d,b,ost: integer;
begin
readln(a,b);
d:=trunc(a/b);
ost:=a-b*d;
Writeln('остаток от деления =',ost);
end.

@yamilramilev · 16.10.2010, 18:04

Мое предыдущее решение не верно, но решение оказалось намного проще))

Pascal

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

@Sna1peR · 16.10.2010, 18:08

yamilramilev, если не трудно, объясни почему мое решение не верно

PS я извиняюсь не так понял этоты по свое

@Puporev · 16.10.2010, 18:09

Pascal

var a,b:integer;
begin
writeln('Введите 2 целых числа:');
readln(a,b);
write('Остаток от деления ',a,':',b,'=');
while a>=b do
a:=a-b;
write(a);
readln
end.

@mexx1994 · 16.10.2010, 18:15 **[ТС]**

спасибо

@mexx1994 1 / 1 / 0 Регистрация: 11.04.2010 Сообщений: 191
		1
	Цикл по условию 16.10.2010, 16:42. Показов 984. Ответов 7 Метки нет (Все метки) С клавиатуры вводятся целые числа a и b .Найти остаток от деления ,не используя операции div and mod .. Заранее спасибо 0

@mexx1994 1 / 1 / 0 Регистрация: 11.04.2010 Сообщений: 191
	16.10.2010, 17:49 [ТС]	3
	а можно ещё прощё? мы функцию не проходили..) 0

@Sna1peR 7 / 7 / 0 Регистрация: 16.10.2010 Сообщений: 31
	16.10.2010, 18:08	6
	yamilramilev, если не трудно, объясни почему мое решение не верно PS я извиняюсь не так понял этоты по свое 0

@mexx1994 1 / 1 / 0 Регистрация: 11.04.2010 Сообщений: 191
	16.10.2010, 18:15 [ТС]	8
	спасибо 0