Ответы
Ответ дал:
1
Ответ:
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.
Объяснение:
на Паскале будет так
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад