ЗАДАНИЯ ПО ИНФОРМАТИКЕ, НИЧЕГО НЕ ПОНИМЮ Найдите значение переменной с трассировочной таблицы. В ответе укажите, сколько раз выполняется цикл и чему равно значение переменной, 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.
(очень нкжно
1) k=43
цикл выполнен: 3 раза
2)s=11
цикл выполнен: 3
3) d=14
цикл выполнен: 4
4) m=17
цикл выполнен: 10
но я сдавала огэ год назад, так что могла накосячить, звиняй