Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) приведена во вложении
Program pascal;
var n :longint;
begin
writeln ('Введите число:');
read(n);
if n>0 then
if n mod 10 =0 then writeln('Число ',n,' кратное 10')
else
writeln('Число ',n,' не кратное 10');
end.
Если имеется ввиду Excel, то там возможно 3 вида ссылок: относительные (записываются в виде A1, A5:C2), абсолютные (в виде $A$5, $A$4:$D$7) и смешанные ($A6, D$5:$C2).
Относительные ссылки автоматически перестраиваются при вставке или удалении строк/столбцов/ячеек, абсолютные - всегда указывают на ячейку с указанным адресом, даже если было добавлена/удалена строка/столбец/ячейка, смешанные сохраняют своё первоначальное значение в позиции, перед которой стоит знак $ и перестраивают только то значение, перед которым нет $.
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>
Человек получает информацию с помощью органов чувств. Осязание и обоняние не обработает компьютер