Informatică, întrebare adresată de kreenx, 8 ani în urmă

ma ajutati si pe mine la informatica e pentru ultima nota urgent va rog (simplu)

Anexe:

Răspunsuri la întrebare

Răspuns de CatalinGrigoriev
0

Pentru valorile 11 30 7 va afisa

14 28

conform algoritmului ce l-am scris in pascal :

program p1;

var m, n, x, p : integer;

begin

readln(m, n, x);

p := 0;

while ((m < n) and (p = 0)) do

begin

   if ((m mod x = 0) and (n mod x = 0)) then

   p := x

   else if m mod x = 0 then

   n := n -1

   else

   m := m + 1;

end;

writeln(m,' ', n);

end.

Alte întrebări interesante