Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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