Нужна программа ** языке паскаль. + 60 баллов!

Question

Нужна программа на языке паскаль. + 60 баллов!

---

Comments

Каждая вторая - это 2, 4, ..., 16? Или нужно выбрать 8 номеров из диапазона [1..17] произвольно произвольно&

Answer 1

1. Программа выводит четные номера:
var k:integer;
begin
k:=2;
while k<17 do<br> 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 

Answer 2

"Каждая вторая" означает, что с дистанции сошли машины с четными номерами.

var
  i:integer;
begin
  Write('С дистанции сошли машины с номерами ');
  i:=2;
  repeat
    Write(i,' ');
    i:=i+2
  until i>17
end.

Результат
С дистанции сошли машины с номерами 2 4 6 8 10 12 14 16