2. Приведены фрагменты программы. Какое значение получит х после завершения программы? 1)

X:=0;

for i:=1 to 5 do

for k:=i+1 to 5 do

х=х+1;

2)

X:=0;

for i:=1 to 5 do for k:=i+1 to 5-i do

x:=x+1;

4)

X:=103;

for i:=1 to 3 do for k:=0 to i do

x:=x+(k-i);

3. Допишите программу и выведите результат.

1)

for i:=1 to 4 do

begin

ifi mod 2 = 0 then

n:=i+1

else

n:=i;

for k:=1 to n do

write(n-i, );

writeln;

end;

2)

for i:=1 to 3 do

for k:=3 downto 1 do for n:=i-k to (i+k) div 2 do write(n,');

3)

x:=0;

for i:=1 to 5 do

for k:=i-1 to i+1 do

х=х+k;

MrTraserS    3   18.02.2021 06:24    0