Скорее всего, здесь нужно определить значение переменной s. k - параметр цикла, Тело цикла (s:=s+14;) здесь выполнится 4 раза. s=0; k=13, s = s+14 = 0+14 = 14 k=14, s = 14+14 = 28 k=15, s = 28+14 = 42 k=16, s = 42+14 = 56 На экран будет выведено значение 56
Переменная k необходима для цикла со счетчиком. Это цикл for. В вашей задаче она будет автоматически увеличиваться на единицу после каждого выполнения тела цикла. От 13 до 16. То-есть тело цикла будет выполнено 4 раза для к=13, 14, 15, 16. Значит значение переменной s будет 4 раза увеличено на 14.
Здесь задается только длина числа, а само число выводится рандомно, но если что, то можно сделать ввод с клавиатуры.
Var n,x: integer; k,m,i: byte; begin randomize; write ('Введите длину числа (M): '); readln (m); x:=1; // величина ограничителей значений числа при рандомном вводе for i:=2 to m do x:=x*10; n:=random(x,x*10-1); writeln ('n=',n); for i:=1 to m do begin if (n mod 10) mod 2 =0 then k:=k+1; n:=n div 10; end; writeln; writeln ('В этом числе ',k,' четных цифр'); end.
Uses graphabc; var i, j: integer; ar: array[1..10]of integer; b: boolean;
label l1; begin b := false; for i := 1 to 10 do ar[i] := random(10, 300); l1: b := false; for i := 1 to 10 do for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j) then begin b := true; ar[i] := random(30, 300); end; if b = true then goto l1; window.Init(0, 0, 800, 600, clwhite); window.IsFixedSize := true; randomize; lockdrawing; pen.Width := 5; for i := 1 to 10 do begin pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255)); drawcircle(400, 300, ar[i]); redraw; end; end.
k - параметр цикла, Тело цикла (s:=s+14;) здесь выполнится 4 раза.
s=0;
k=13, s = s+14 = 0+14 = 14
k=14, s = 14+14 = 28
k=15, s = 28+14 = 42
k=16, s = 42+14 = 56
На экран будет выведено значение 56