Pascal pagalba :)

Sveiki, reikia draugui pagalbos, kadangi mūsų nebemoko tokio dalyko, tai parašiau čia. Dėkui iš anksto.

Nustatykite šių sakinių veikimo rezultatą:

I.

m := 6; while m > 1 do m := m - 1; k := m div 6

Sveiki, reikia draugui pagalbos, kadangi mūsų nebemoko tokio dalyko, tai parašiau čia. Dėkui iš anksto.

 

Nustatykite šių sakinių veikimo rezultatą:

I.

m := 6; while m > 1 do m := m - 1; k := m div 6

• m = 2
  
• k = 0
  

m=1

k=0

programos pavyzdys:

program Bevardë9;
var m, k: integer;
begin
 m := 6;
 while m > 1 do
 begin
	m := m - 1;
	k := m div 6;
 end;
 write('m=',m,' k=',k);
 Readln;
 Readln;
end.

p.s. Gali pats patikrinti su FPS.