никак там невозможно сделать
Содержит "Если" и "Иначе", либо подобные.
Например - "Он сказал: "либо вы отдаете деньги сейчас, либо вы пожалеете".
if (Вы отдали деньги) then (Все хорошо)
else (Вы пожалеете)
Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if (-72<=A)and(A<=14) then WriteLn('Принадлежит')
else WriteLn('Не принадлежит')
End.
1 символ = 1 байт значит
Мира = 4 байтам
- = 1 байт
Мир = 3 байта
Итого 4+1+3 = 8 байтов
for i := 0 to 10 do
А[i]:=i;
for i := 0 to 4 do
begin
К := A[t];
A[i] := A[10 * i] * K;
A[10 * i] := K;
<span>end;</span>