В чем вопрос я понять не могу???
Var a,a1,a2,a3,a4:integer;
begin
write('a = ');
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln('цифра тысяч - ',a1);
writeln('цифра сотен - ',a2);
writeln('цифра десятков - ',a3);
writeln('цифра единиц - ',a4);
end.
Пример:
a = 1234
цифра тысяч - 1
цифра сотен - 2
цифра десятков - 3
цифра единиц - 4
3 задание ответы:1,3,4,5
4 задание карандаш и граффити
Ответ: 7
По условию если значение Ball[k] больше 3, то значение c увеличивается на 1.
Проверяем:
Ball[1] = 4 > 3 (да) c = 1
Ball[2] = 5 > 3 (да) c = 2
Ball[3] = 3 > 3 (нет) c = 2
Ball[4] = 4 > 3 (да) c = 3
Ball[5] = 2 > 3 (нет) c = 3
Ball[6] = 5 > 3 (да) c = 4
Ball[7] = 4 > 3 (да) c = 5
Ball[8] = 3 > 3 (нет) c = 5
Ball[9] = 4 > 3 (да) c = 6
Ball[10] = 5 > 3 (да) c = 7
В идеале вот:
<span>uses ABCObjects, GraphABC;
const
x0 = 300;
y0 = 300;
K = 10;
var
i, j, x1, y1, x, y, n: integer;
x2, y2, fi, t: real;
begin
x := x0;
y := y0;
n := 500;
for j := 0 to K - 1 do
begin
fi := 2 * pi * j / K;
for i := 1 to n do
begin
t := 2 * pi * i / n;
x2 := 100*cos(t)+ 150;
y2 := 20*sin(t);
x1 := round(x2 * cos(fi) - y2 * sin(fi));
y1 := round(x2 * sin(fi) + y2 * cos(fi));
if i > 1 then
Line(x + x0, y0 - y, x0 + x1, y0 - y1);
x := x1;
y := y1;
end;
end;
new CircleABC(x0,y0,50,clyellow);
end<span>.</span></span>