4 tema. Cikliniai algoritmai. Ciklo sakinys WHILE 1. a) s := 10; a := 10; b := 5; c := 2; while a > b do begin s := s + a; a := a - c; b := b + c; end; Ciklas atliekamas _____ kartus. s = ____; a = _________; b = _________; c = ___________.
1. b) s := 4; a := 3; b := 3; c := 3; while a > 0 do begin if a > b then s := s + a else s := s - b; a := a - c; b := b + c; c := c + 2; end; Ciklas atliekamas _____ kartus. s = ____; a = _________; b = _________; c = ___________.
1. c) s := 13; a := 3; b := 3; c := 3; while s > 0 do begin s := s - c; if a > b then s := s + b else s := s - a; a := a - c; b := b - c; c := c + 2; end; a := a - c; b := b - c; c := c + 2; Ciklas atliekamas _____ kartus. s = ____; a = _________; b = _________; c = ___________.
1. d) s := 23 div 2 mod 3 + 4; a := 15 mod 4 * 2 – 3; b := 25 div 3 * (2 + 3); c := 12 div 5 mod 4; while s mod 2 = 0 do begin s := s - c; if a > b then s := s + b else s := s - a; a := a - c; b := b - c; c := c + 2; end; Ciklas atliekamas _____ kartus. s = ____; a = _________; b = _________; c = ___________.
2. Ka skaiciuoja pateikta programa? program skaiciavimas; var m, n, s : real; begin writeln ('Iveskite n'); readln (n); m := 5; s := 0; while m <= n do begin s := s + m * (m + 3); m := m + 1; end; writeln (s); end. Kokios bus kintamųjų m ir s reikšmės, kai n = 7? m = _________ ; s = __________.