1/
var i:integer;
begin
for i:=1 to 20 do begin
if i mod 2=1 then write(i, ' ');
end;
end.
2/
var i:integer;begin
for i:=15 to 40 do begin
if i mod 2=0 then write(i,' ');
end;
end.
Луна
1. Создаём Эллипс
2. Перекрашиваем его в нужный цвет с помощью заливки
3. Предаём форму месяца с помощью ластика
Цветок
1. Создаём эллипс
2. Вокруг Эллипса создаём ещё другие Эллипсы и выставляем их вокруг первого Эллипса
3. Окрашиваем Эллипсы в нужные цвета
Колобок
1. Создаём эллипс
2. Внутри эллипса создаём глазки помощью инструмента "Эллипс"
3. Окрашиваем эллипсы в нужные цвета
CD RW перезаписывающийся диск
CD R не перезаписываетсч
CD ROM этот сам дисковод
Так, значит пеши 1010101010лол101010101010