maks110994

01.02.2021 23:39 •  Информатика

Решите и запишите значение переменных, полученное в результате работы следующей программы. 1. var d, n, i: integer; begin n := 4; d := n*2; for i := 1 to 3 do d := d + 2*i; writeln(d); end. 2. var d, n, i: integer; begin n := 3; d := n*3; for i := 1 to 3 do d := d + i; writeln(d); end. 3. var t, i: integer; begin t := 1; for i := 1 to 4 do t := t * i; writeln(t); end. 4. var n, s : integer; begin n := 0; s := 0; while s <= 365 do begin s := s + 36; n := n + 10 end; write(n); end. 5. var n, s: integer; begin n : = 30; s : = 25; while s < 425 do begin s : = s + 40; n : = n + 10 end; write(n) end. 6. var n, s: integer; begin n : = 60; s : = 25; while s < 365 do begin s : = s + 20; n : = n + 10 end; write(n) end.