Написать программу и нарисовать блок-схему 1. ввести с клавиатуры целое положительное число, если число заканчивается на 2, то увеличить его на 3 и вывести на экран. 2. ввести с клавиатуры целое положительное число, если число делится на 8, то увеличить его в 3 раза и вывести на экран, указав, что оно делиться на 8. 3. определите, имеется ли среди заданных целых чисел a, b, c хотя бы одно чётное. 4. ввести с клавиатуры целое положительное число, если число если число заканчивается на 6, то увеличить его на 3 и вывести на экран. 5. даны три числа. найти наименьшее из них. 6. ввести целое число и найти сумму его цифр. 7. найти сумму первой и последней цифр любого целого положительного числа 8. найти удвоенное произведение цифр числа, вводимого с клавиатуры.
{Выводит узор из 100 произвольно размещенных окружностей произвольного
радиуса и цвета}
uses Graph;
var
grDriver:integer;
grMode: integer;
grPath:string;
ErrCode:integer;
x,y,r: integer; ( координаты центра и радиус окружности }
i: integer;
begin
grDriver:=VGA;
grMode:=VGAHi;
grPath:=' ';
InitGraph (grDriver,grMode,grPath);
ErrCode:=GraphResult;
if ErrCode <> grOk then
begin
writeln ('Ошибка инициализации графического режима.1);
writeln ('Для завершения работы нажмите <Enter>');
readln;
Halt(l);
end;
Randomize;
for i:=l to 100 do
begin
x:=Random(640);
y:=Random(480);
r:=Random(240);
Setcolor(Random(16));
Circle(x,y,r);
end;
readin;
end.