13 lines
147 B
ObjectPascal
13 lines
147 B
ObjectPascal
Program While4;
|
|
Var a,b,c:integer;
|
|
begin
|
|
ReadLn(a,b);
|
|
Write (a mod b);
|
|
{
|
|
while a mod b =0 do
|
|
begin
|
|
c:=a mod b;
|
|
end;
|
|
WriteLn(c);
|
|
}
|
|
end. |