Практическая 11,12,13 декабря

 открыть шаблон1 или шаблон 2

//фам№1 шаблон1 
var x,y,a,n:integer;
begin
read(a);
if a<=6 then writeln(a*2)
          else writeln(a+2);

writeln(' a=', a);

end.

//фам№1 шаблон 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.

 решить следующие задачи

З адача 1 Ввести с клавиатуры число х, если оно меньше 100,  то вывести x уменьшенное в 10 , иначе увеличить число х в 5 раз

Задача 2 Ввести с клавиатуры число х, сравнить его с числом 50, если оно меньше 50 , то вывести x уменьшенное в 5раз , иначе учеличить число в 15 раз

Задача 3 Ввести с клавиатуры число х, если оно четное, то  уменьшить  x на 20 ,  иначе учеличить число x на 25 раз

Задача 4 Ввести с клавиатуры число х, сравнить его с числом 500, если оно не равно 500, то вывести x уменьшенное в 10 , иначе учеличить число в 5 раз

Задача 5 Ввести с клавиатуры число х, если оно нечетное, то  увеличить   x на 200 ,  иначе уменьшить число x на 300 раз

 Задача 6

// написать программу для рисования 10 различных кругов
uses GraphABC;
var x,y,r,i: integer;
begin
SetPenWidth(3);
SetBrushStyle(bsClear);
for  i:= 1 to 110 do
begin
x := random(600);
y := random(400);
R := random(150);
SetPenColor(clRandom);
_____________
end;
end.

// Задача 7 написать программу для рисования 15 различных квадратов

// Задача 8-9 написать программу для рисования 15различных квадратов и 10 различных кругов

//задача 10. Ввести число, если оно четное, то   программа  рисует  5 различных квадратов иначе рисует 7 зеленых кругов