X := 47
z := 1
i := 0
1 итерация цикла:
z := (1+47/2)/2 = 12,25 (округляем, получаем 12,2)
i := 0 + 1 = 1
2 итерация цикла:
z := (12,2 + 47/2)/2 = 17,85 (округляем, получаем 17,8)
i := 1 + 1 = 2
3 итерация цикла:
z := (17,8 + 47/2)/2 = 20,65 (округляем, получаем 20,6)
i := 2 + 1 = 3
4 итерация цикла:
z := (20,6 + 47/2)/2 = 22,05 (округляем, получаем 22)
i := 3 + 1 = 4
i < 4 - условие не выполняется, выводим 22
Ответ: 22
Uses GraphABC;
begin
line(300,50,300,450);
line(150,250,550,250);
line(300,50,295,60);
line(300,50,305,60);
line(550,250,540,245);
line(550,250,540,255);
<span>end.</span>
Мы имеем дело с 4 разрядным числом в 5ричной системе счисления
А=0, К=1, Л=2, О=3, Ш=4 судя по порядку
Первое слово на О будет иметь вид ОААА = 3000_5 = 3*5^3 = 375_10
Поскольку номерация начинается с нулевого слова, то номер <span>ОААА будет 376</span>
С использованием составных условий:
Program Type1;
Var X1, Y1, X2, Y2: Integer;
BeginWriteLn('X1 = ');
ReadLn(X1);
WriteLn('Y1 = ');
ReadLn(Y1);
WriteLn('X2 = ');
ReadLn(X2);
WriteLn('Y2 = ');
ReadLn(Y2);
If (X1 = -X2) And (Y1 = -Y2) Then
WriteLn('Точки симметричны относительно начала координат')
Else If (X1 = -X2) And (Y1 = Y2) Then
WriteLn('Точки симметричны относительно оси Y')
Else If (X1 = X2) And (Y1 = -Y2) Then
WriteLn('Точки симметричны относительно оси X')
Else
WriteLn('Точки не симметричны');
ReadLn;
End.
<span>Без использования составных условий:
</span>
Program Type2;
Var X1, Y1, X2, Y2: Integer;
Begin
WriteLn('X1 = ');
ReadLn(X1);
WriteLn('Y1 = ');
ReadLn(Y1);
WriteLn('X2 = ');
ReadLn(X2);
WriteLn('Y2 = ');
ReadLn(Y2);
If (X1 + X2 = 0) And (Y1 + Y2 = 0) Then
WriteLn('Точки симметричны относительно начала координат')
Else If (X1 + X2 = 0) And (Abs(Y1) - Abs(Y2) = 0) Then
WriteLn('Точки симметричны относительно оси Y')
Else If (Abs(X1) - Abs(X2) = 0) And (Y1 + Y2 = 0) Then
WriteLn('Точки симметричны относительно оси X')
Else
WriteLn('Точки не симметричны');
ReadLn;
End.
Активное действие: Учитель работает. (Что-то делает - активное).
Пассивное действие: Кот спит на диване(Не делает никаких действий, просто спит - пассивное).
