dim a,b,n,s as integer
input a
b=a
n=0
x=0
do
b=b\10
x=b mod 10 +x ' сумма цифр
n=n+1 'сколько цифр
loop until b<>0
print n, x
if a mod 2 = 0 then print ("четное") else print ("нечетное")
a=a mod 100 ' сколько сотен
print a
'я не помню точно синтаксис фуникций input и print, так что проверь
Первое число умножают на второе и ответ ставят между двумя данными числами.
9×3=27
ставим его между 9 и 3,
получается 9273
ответ:9273
Не знаю как их назвать, но попробуй зайти в Мой Компьютер и удалить что-нибудь от туда, ни куда не заходя (то есть Диск С и т.д.)
Вот это нельзя удалить...
64*40*48*8=983040 бит /8/1024 = 102 КБ
Ответ: 3.
Procedure TForm1.Button1Click(Sender: TObject);
var
xn, e, m : Extended;
xnn : Extended;
begin
Memo1.Clear;
xn := StrToFloat(Edit1.Text);
e := StrToFloat(Edit2.Text);
m := StrToFloat(Edit3.Text);
repeat
xnn := xn;
xn := (1/3)*(2*xnn + (m/(xnn*xnn)));
Memo1.Lines.Append('xn = '+floattostr(xn));
until (Abs(xn-xnn)<e);
<span>end;
</span>