var a: real;
begin
readln(a);
writeln((2 * a * a * a + 8)/(3 * a));
end.
Ну , для начала ( если ты не сохранила ее) после изменения кнопку возврата нажать пару раз в левом верхнем углу. Если изменила то никак, ну только если кэш этой версии не сохранился в Temp или не сохранился на другом носителе информации.
A = «Число 22 — чётное число» true (истина)<span>
B =«Волк — травоядное животное» f</span>alse (ложь)
Значения логического типа boolean занимают 1 байт и принимают
одно из двух значений, задаваемых предопределенными константами
True (истина) и False (ложь).
Sub Z1()
Dim x As String
f = True
x = InputBox("Введите слово: ")
For i = 2 To Len(x) - 2 Step 2
If Mid(x, i, 1) <> Mid(x, i + 2, 1) Then f = False
Next i
If f = True Then
MsgBox ("Условие выполняется")
Else: MsgBox ("Условие не выполняется")
End If
<span>End Sub</span>
1849-1854г инженером Ш.бурселем