program Prog; // Pascal [fpc 3.0.4]
var
x, y, r, q: real;
begin
readln(x, y);
r := x;
q := 0;
while (r >= y) do
r := r-y;
q := q+1;
end;
Writeln('r=', r, '; q=', q);
end.
Объяснение:
на Паскале будет так
program Prog; // Pascal [fpc 3.0.4]
var
x, y, r, q: real;
begin
readln(x, y);
r := x;
q := 0;
while (r >= y) do
begin
r := r-y;
q := q+1;
end;
Writeln('r=', r, '; q=', q);
end.
Объяснение:
на Паскале будет так