1. Условие задания: Что получится в результате работы фрагмента программы?m:=17;for...

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)ПОМОГИТЕ ПОЖАЛУЙСТА, ДАМ МНОГО БАЛОВ ​

Comments

Можно конкретное условие задачи для второго номера?

---

Переменные неполные

---

Руслан, второе задание неточное, его нельзя выполнить. Жду конкретного условия

---

у меня в профиле новое задание, уже с условием, простите

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

write(I)

end.

3.

var s,k:integer;

begin

s:=0;k:=1;

while k <17 do begin</p>

s:=s+k;

k:=k+1;

end;

write(s,' ',k)

end.