1. Программа выводит четные номера: var k:integer; begin k:=2; while k<17 do begin write(k,' '); k:=k+2; end; writeln; end.
Результат: 2 4 6 8 10 12 14 16
2. Программа выводит 8 произвольных номеров из диапазона [1,17]: var k,i:integer; m:set of 1..17; begin Randomize; m:=[]; for i:=1 to 17 div 2 do begin k:=random(17)+1; while k in m do k:=random(17)+1; m:=m+[k]; write(k,' '); end; writeln; end.
Answers & Comments
Verified answer
1. Программа выводит четные номера:var k:integer;
begin
k:=2;
while k<17 do
begin
write(k,' ');
k:=k+2;
end;
writeln;
end.
Результат:
2 4 6 8 10 12 14 16
2. Программа выводит 8 произвольных номеров из диапазона [1,17]:
var k,i:integer; m:set of 1..17;
begin
Randomize;
m:=[];
for i:=1 to 17 div 2 do
begin
k:=random(17)+1;
while k in m do k:=random(17)+1;
m:=m+[k];
write(k,' ');
end;
writeln;
end.
Пример:
11 7 8 12 15 10 4 5