ЗАДАНИЯ ПО ИНФОРМАТИКЕ, НИЧЕГО НЕ ПОНИМЮ Найдите значение переменной с трассировочной таблицы. В ответе укажите, сколько раз выполняется цикл и чему равно значение переменной, var k, i: integer; var s, n: integer; var d, n: integer; begin begin begin

k := 4; for i : = 1 to 3 do k := | + 2 * k;

writeln(k);

end.

end.

: = 5;

for n : = 2 to 4 do

writeln(s);

d := 6; := d-2;

Var k, m: integer; Dat: array[1…10] of integer; Begin

Dat[1] := 12; Dat[2] : = 15; := + (n=1); for n := 1 to 4 do Dat[3] := 17; Dat[4] := 15; d : = d + n; Dat[5] : = 14; Dat[6] := 12; writeln(d); Dat(7) := 10; Dat(8) : = 13; end. Dat[9] : = 14; Dat[10] := 15; m : = 0; for k : = 1 to 10 do

if Dat[k] > m then begin

m : = Dat[k];

end;

writeln(m);

End.

(очень нкжно

Tedzs    2   12.05.2020 23:00    0