Question

Определите, что будет напечатано в результате работы следующей программы. var s, n: integer; begin s:= 1; for n:= 5 to 8 do s:= s * 3; write(s); end. Ответ: введите число 8. Определите, что будет напечатано в результате работы следующей программы. Var k, і: integer; Begin k:= 4; For і:= 1 to 3 do k:= 2*k + і; Writeln(k); End. Ответ: введите число 9. Определите, что будет напечатано в результате работы следующей программы. Var y, і: integer; Begin y:= 0; For і:= 1 to 3 do y:= y + 4*і; Writeln(y); End. Ответ: введите число 10. Определите, что будет напечатано в результате работы следующей программы. Var s,і:integer; Begin s:= 3; For і:= 2 to 5 do s:= s + 2*і; Writeln(s); End.

Answer 1

1) 81
2) 43
3) 24
4) 31