Я думаю что:сночало 1,потом 4, затем3, ну и наконец2
Program colors;
Uses crt;
var color: integer;
label l1;
Begin clrscr;
l1: write('Введите номер цвета color = ');
readln(color);
case color of 0: writeln('Черный');
1: writeln('Синий');
2: writeln('Зеленый');
3: writeln('Голубой');
4: writeln('Красный');
5: writeln('Фиолетовый');
6: writeln('Коричневый');
7: writeln('Светло-серый');
8: writeln('Темно-серый');
9: writeln('Ярко-синий');
10: writeln('Ярко-зеленый');
11: writeln('Ярко-голубой');
12: writeln('Розовый');
13: writeln('Малиноый');
14: writeln('Желтый');
15: writeln('Белый');
else
begin
writeln('Непривильный номер цвета');
writeln;
goto l1;
end;
end;
readln;
End.
нц
для i от 1 до 2
S := 0
нц
для j oт 2 до 3
нц для k oт 1 до 2
S := S+i+j+k
кц
кц
кц
S = (2 + 2 + 1) + (2 + 2 + 2) + (2 + 3 + 1) + (2 + 3 + 2) = 5 + 6 + 6 + 7 = 24
Var
a: array[1..50] of integer;
max, maxi: integer;
begin
Randomize;
for var i := 1 to 50 do a[i] := Random(1, 1000);
writeln(a);
max := a[1];
maxi := 1;
for var i := 1 to 50 do
if a[i] > max then begin
max := a[i];
maxi := i;
end;
a[maxi] := 0;
writeln('Максимальный был на ', maxi, ' месте и равнялся ', max);
writeln(a);
<span>end.</span>
существует режим «Edit Mode», который позволяет изменять длину или диаметр сегмента, и инструменты, позволяющие заменить круг на линию (и обратно), дублировать сегмент или "обездвижить" его в главном окне аниматора. Фигуры сохраняются в формате .stk.
если нужно подробней напиши в личку
