Question

In PASCAL, va rog muult !

Answer 1

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: