УРОК 18, 23, 24 ДЕКАБРЯ

 вЫСТАВЛЕНЫ предварительные отметки за четверть. Улучшить можно

1- при наличии домашней работы к 11декабря ссылка 

2- пререписанных в тетрадь 3 задач к этому уроку и

3-выучить эти задачи наизусть 

/фам№1 шаблон 2 Ввести с клавиатуры число а, если оно меньше 6,  то увеличить его в 2 раза , иначе отнять от него число 2.

var x,y,a,n:integer;
begin
read(a);
if a<=6 then a:=a*2
          else  a:=a-2 ;

writeln(' a=', a);
end.

//фам№2Ввести с клавиатуры число а, если оно четное,  то вывести его и сообщение , иначе вывести сообщение, что оно нечетное.

var x,y,a,n:integer;
begin
read(a);
if a mod 2 = 0 then writeln(' число четное', a)

          else writeln(' число не четное', a)  ;

writeln(' a=', a);
end.

//фам№3 написать программу для рисования 10 различных кругов

uses GraphABC;
var x,y,r,i: integer;
begin
SetPenWidth(3);
SetBrushStyle(bsClear);
for  i:= 1 to 10 do
begin
x := random(600);
y := random(400);
R := random(150);
SetPenColor(clRandom);

circle (x, y , r);

end;
end.