Răspuns:
program reparatie;
var f,g:text;
a,b,c,mesaje:integer;
begin
assign(f,'pr3_in.txt'); reset(f);
readln(f,a);
readln(f,b);
readln(f,c);
close(f);
mesaje:=0;
while (a<>b) do
begin
if (a+2) mod c=0 then inc(a,1)
else inc(a,2);
inc(mesaje);
end;
assign(g, 'pr3_out.txt');
rewrite(g);
writeln(g,mesaje);
close(g);
end.
Explicație:
