Program E10;
uses crt;
var
i: integer;
S: string;
begin
writeln('Введите строку: ');
readln(S);
for i:=1 to length(S) do
if S[i] = 'о' then
S[i]:='и';
writeln('Вывод: ',S)
<span>end.
Не знаю конечно но может так..
</span>
Ну тут я думая однозначно человек))
X - (x - 18) div 3 = 69
x - 69 = (x - 18) div 3
0 <= (x - 18) - 3(x - 69) < 3
0 <= -2x + 189 < 3
0 >= 2x - 189 > -3
189 >= 2x > 186
94.5 >= x > 93
поскольку в целых числах, то х = 94
Sub car()
Dim s As Double
For i = 1 To 12
s = s + 4
Next i
MsgBox ("Скорость автомобиля через 12 секунд равна " + CStr(s) + " км/ч")
End Sub<span>
</span>
<em><u>В оперативке данные стираются сразу же после выключения питания.Под "долговременной памятью" я так понимаю ты имеешь ввиду память жёсткого диска,там данные хранятся независимо от того есть питание или нет.</u></em>