Question

1. Условие задания: Что получится в результате работы фрагмента программы?m:=17;for i:=1 to 7 dom:=m-6;writeln (m);2.Условие задания:Что получится в результате работы фрагмента программы?a:=0.1;s:=0;repeat i:=I+1;b:=1/i;s:=s+a;until b<a;write(I)3. Условие задания:Что получится в результате работы фрагмента программы?s:=0;k:=1;while k <17 do begin s:=s+k;k:=k+1;end;write(s,k)ПОМОГИТЕ ПОЖАЛУЙСТА, ДАМ МНОГО БАЛОВ ​

Answer 1

1. -25

2. 11

3. 136 17

1.

var m,i,s:integer;

begin

m:=17;

for i:=1 to 7 do

m:=m-6;

writeln (m);

end.

2.

var i:integer;

a,b,s:real;

begin

a:=0.1;

s:=0;

repeat i:=I+1;b:=1/i;

s:=s+a;

until b<a;

write(I)

end.

3.

var s,k:integer;

begin

s:=0;k:=1;

while k <17 do begin

s:=s+k;

k:=k+1;

end;

write(s,' ',k)

end.

Answer 2

Конечно, я помогу разобраться с каждым фрагментом программы:

1. Фрагмент программы:

pascalCopy code
m := 17;
for i := 1 to 7 do
    m := m - 6;
writeln(m);

Результат:

diffCopy code
-25

В этом фрагменте у вас есть переменная m, которая изначально равна 17. Затем выполняется цикл for с переменной i от 1 до 7 (включительно). Внутри цикла значение m уменьшается на 6 на каждой итерации. В итоге, после выполнения цикла, m становится равным -25, и это значение выводится на экран.

2. Фрагмент программы:

pascalCopy code
a := 0.1;
s := 0;
repeat
    i := i + 1;
    b := 1 / i;
    s := s + a;
until b < a;
write(i);

Результат:

Copy code
11

В этом фрагменте у вас есть переменная a, которая равна 0.1, и переменная s, которая изначально равна 0. Затем выполняется цикл repeat (повторять), в котором на каждой итерации значение переменной i увеличивается на 1, затем вычисляется значение b = 1 / i, и значение a прибавляется к переменной s. Цикл выполняется до тех пор, пока b (текущее значение 1 / i) станет меньше, чем a (0.1). Когда это условие выполняется, значение i выводится на экран. В данном случае, цикл выполнится 10 раз (с i от 1 до 10), и на 11-й итерации условие перестанет выполняться.

3. Фрагмент программы:

pascalCopy code
s := 0;
k := 1;
while k < 17 do
begin
    s := s + k;
    k := k + 1;
end;
write(s, k);

Результат:

Copy code
13617

В этом фрагменте у вас есть переменная s, которая изначально равна 0, и переменная k, которая изначально равна 1. Затем выполняется цикл while (пока), который выполняется до тех пор, пока значение k меньше 17. На каждой итерации значение k прибавляется к переменной s, и значение k увеличивается на 1. Цикл продолжается до тех пор, пока k не станет равным 17. После завершения цикла значения s и k выводятся на экран. В данном случае, сумма всех чисел от 1 до 16 равна 136, и после цикла значение k становится 17.