Question

1. Условие задания:
Что получится в результате работы фрагмента программы?
m:=17;
for i:=1 to 7 do
m:=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.