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.
Условие задания:
Что получится в результате работы фрагмента программы
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.