Question

20. Ce se va afişa în urma executării unnătorului program ?
var n,i integer ;
begin
n: =7;
for i:=2 to n-2 do
if i mod 2=0 than
write(i, ' ', n-i,' ' )
end.

a) 2 4 6
b) 2 4 4 6
c) 2 5 4 3
d) 2 5
e) 2 5 3 4

Answer 1

Răspuns:

var n,i integer ;

begin

n: =7;

for i:=2 to n-2 do

     if  (i mod 2=0) then    //daca (i mod 2=0) atunci ....

                 write(i, ' ', n-i,' ' )

end.

n=7      

i=2...n-2=5

i=2 => i mod 2 =0 (adevarat) =>    write(i, ' ', n-i,' ' )   adica 2 5

i=3 => i mod 2 =0 (fals)

i=4 => i mod 2 =0 (adevarat) =>    write(i, ' ', n-i,' ' )   adica           4 3

i=5 => i mod 2 =0 (fals)    stop