1 var
2 cl : array[0 .. 2] of TColor = (clGreen, clRed, clYellow);
3 curr : integer = 0;
4
5 procedure TForm1.Button1Click(Sender: TObject);
6 begin
7 curr := succ(curr) mod 3;
8 Color := cl[curr];
9 end;
10
11 procedure TForm1.FormCreate(Sender: TObject);
12 begin
13 Color := cl[curr];
14 end;
A x A ⇒ y (a^2)
y x y ⇒ y (a^4)
y x y ⇒ y (a^8)
y x y ⇒ y результат
Я не знаю, зачем тут еще какая-то пятая операция, достаточно четырех ))
var
i, count: integer
i := 1;
count := 0;
repeat
String stroka;
readln(stroka);
if(length(stroka)<3)
count := count+1;
i:=i+1
Until(i=8);
Выводишь на экран
Цикл оформляй через for, я просто забыл синтаксис этого цикла.
Если нужен ответ в десятичной, переведем все числа в десятичную систему и решим простой пример.
125(8)= 85 (десятичная)
11101(двоичная) = 29(десятичная)
А2(16) = 162(десятичная)
1417(8) = 783(10)
далее решаем простой пример
85+29*162-783=4000
Math.sqrt(Math.pow(x,12)+Math.pow(x,22))