Какое значение примет переменная х в результате выполнения следующих фрагментов программ? 1) x: =0; for y: =1 to 9 do x: =x+y; 2) x: =1; for y: =1 to 5 do x: =x*y; 3) x: =1; while x< > 1 do begin x: =x+3; x: =x+1; end; 4) x: =1; while x< 100 do begin x: =x*2; end; сколько раз выполниться тело цикла: а) for i: =1 to 10 do x: =x+i; б) for k: =2 to 22 do if k mod 2=0 then s: =s+1;

Какое значение примет переменная х в результате выполнения следующих фрагментов программ?   1) x: =0; for y: =1 to 9 do x: =x+y;   y: =1    x = 1 y: =2    x = 3 y: =3    x = 6 y: =4    x = 10 y: =5    x = 15 y: =6    x = 21 y: =7    x = 28 y: =8    x = 36 y: =9    x = 45x =  452) x: =1; for y: =1 to 5 do x: =x*y;   y=1    x=1y=2    x=2y=3    x=6y=4    x=24y=5    x=120x=1203) x: =1; while x< > 1 do begin x: =x+3; x: =x+1; end;   x=1 (так как условие не используется) 4) x: =1; while x< 100 do begin x: =x*2; end; x=2          (2< 100)x=4          (4< 100)x=8        (8< 100) x=16      (16< 100) x=32      (32< 100) x=64      (64< 100) x=128    ( 128> 100)x=128  сколько раз выполниться тело цикла: а) for i: =1 to 10 do x: =x+i; 10 раз (i=1    i=2    i=3    i=4    i=5    i=6    i=7    i=8    i=9    i=10)б) for k: =2 to 22 doif k mod 2=0 then s: =s+1; 11 раз (k=2    k=4    k=6    k=8    k=10    k=12    k=14    k=16    k=18    k=20    k=22) (остальные k условию не соответствуют)

Var f: real;       k: byte; begin   readln(f);   readln(k);   writeln(floattostr(f/k) + ' га'); end.