Информатика

Левонтий

7 августа, 21:47

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;