СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ!!! В гонках участвовало 17 машин (номера идут по порядку)....

Question

СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ!!!
В гонках участвовало 17 машин (номера идут по порядку). Каждая вторая машина сошла с дистанции по той ил иной причине. Составьте алгоритм определения их номеров.

Answer 1

Var i:integer;
begin
writeln('Сошли с дистанции машины:');
for i:=1 to 17 do
 if i mod 2 = 0 then write(i,'  ');
writeln;
end.

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