Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Решить вот это задание.

Ответ оставил Гость

Вот программа:
var n,k,m,a,b: integer;
begin
readln(n);
readln(k);
readln(m);
a:=n div (k+m);
b:=n mod (k+m);
if b=0
  then a:=2*a else if b<=k then a:=2*a+1 else a:=2*a+2;
writeln(a);
end.