Question

1. определить значение переменной у после выполнения следующих фрагментов программы: a) у : = 1; for i : = 1 to 5 do begin у : = у +1 ; у : = у + i; end; b) y : = 0; for k : = 2 to 6 do у : = у + k; c) у : = 1; for k : = 3 to 5 do у : = у * k; d) y : = 1; for i : = 1 to 4 do begin y : = y * 10 ; y : = y + i; end; 2. определить значение переменной у после выполнения следующих фрагментов программы: a) var у : real; i : integer; у : = 1 ; i : = 5; while i> 2 do i: = i - 1; y: =y + 1 * i; b) var у : real; i : integer; у : = 1 ; i : = 2 ; repeat i: = 2 * i; y: =y + i until i > 5; c) var у : real; i : integer; у : = 1 ; i : = 1; while i< 5 do i: = i+1; y: =y+1 * i; d) var у : real; i : integer; у : = 1 ; i : = 5; repeat i: = 2 * i; y: =y + i until i > 5;

Answer 1

1 
a) 21
b)20
c)60
d)11234
2  Решу позже,Окей? 
a) 3
b)3
c)
d)3