1) var x:integer; begin read (x); if (x=12) or (x=1) or (x=2) then writeln ('Зима'); if (x=3) or (x=4) or (x=5) then writeln ('Весна'); if (x=6) or (x=7) or (x=8) then writeln ('Лето'); if (x=9) or (x=10) or (x=11) then writeln ('Осень'); end. 2) var K,a:integer; begin readln(K); a:=K mod 10; if (K=11) or(K=12) or (K=13) or (K=14) then writeln ('У меня ',K,' друзей') else begin if (a=1) then writeln ('У меня ',K,' друг'); if (a=0) or ((a>=5) and (a<=9)) then writeln ('У меня ',K,' друзей'); if (a>=2) and (a<=4) then writeln ('У меня ',K,' друга'); end; end.
1. Чтобы выбрать фоновый цвет необходимо взять ведро, выбрать цвет , нажать на то место где хочешь раскрасить и всё!
2. Чтобы выбрать основной цвет необходимо взять ведро, выбрать цвет, нажать на то место где хочешь раскрасить и всё!
3. Чтобы нарисовать прямоугольник необходимо взять эту фигуру и сделать, или нарисовать при прямых линий или кисточек.
4. Тоже самое что и 3.
5. Чтобы нарисовать овал необходимо взять эту фигуру и сделать, или нарисовать при кривых линий или кисточек.
6. Тоже самое что и 5.
Всё это через PAINT.