Нужна программа на языке паскаль. + 60 баллов!
Нужна программа на языке паскаль. + 60 баллов!
Гость
Ответ(ы) на вопрос:
Гость"Каждая вторая" означает, что с дистанции сошли машины с четными номерами.
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
Гость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
Не нашли ответ?
Похожие вопросы