Question

не понимаю как решить фрагмент программы
k:=0;
For i:=1 to 4do
For j:=1 to i+1 do
k:=k+1;
в результате выполнения нужно найти значение k

Answer 1

Ответ:

14

Объяснение:

var k,i,j:integer;

begin

k:=0;

For i:=1 to 4 do

For j:=1 to i+1 do

k:=k+1;

write(k);

end.