В 32 768 битах сожержится 4 килобайта: 32768 / 8 / 1024=4
Щелкнуть на имени листа правой кнопкой мыши и из контекстного меню выбрать пункт Переименовать.
Единичная система счисления Необходимость в записи чисел стала возникать у людей еще в древности после того, как они научились считать. Свидетельством этого являются археологические находки в местах стойбищ первобытных людей, которые относятся к периоду палеолита (10-11 тыс. лет до н.э.). Изначально количество предметов изображали, используя определенные знаки: черточки, насечки, кружочки, нанесенные на камни, дерево или глину, а также узлы на веревках. Рисунок 1. Ученые эту систему записи чисел называют единичной (унарной), поскольку число в ней образовано повторением одного знака, который символизирует единицу.
Информация взята с сайта биржи Автор24: https://spravochnick.ru/informatika/sistemy_schisleniya/nepozicionnye_sistemy_schisleniya/ .
В строчках, в которых Вы вычисляете y1 есть явная ошибка - скобок не хватает, а некоторые скобки можно, наоборот, убрать:
Вместо y1:=((1/3)*(2*y0+x/y0*y0))
надо написать y1:=(2*y0+x/(y0*y0))/3
Поверено на Паскале АВС
Program PSM;
uses crt;
var
cena, summa:real;
kwo,skid : integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln; writeln;
writeln('+---------------------------------------------------------------+');
writeln('| Приветствуем вас в магазине ТРИЛАЙН! |');
writeln('+---------------------------------------------------------------+');
writeln('| Введите, пожалуйста, необходимую информацию ниже: |');
writeln('+---------------------------------------------------------------+');
write(' Цена товара: '); readln(cena);
write(' Количество единиц товара: '); readln(kwo);
write(' Размер скидки в % (0 - если скидки нет) '); readln(skid);
writeln('+---------------------------------------------------------------+');
writeln('| |');
writeln('| Сумма к оплате: ',cena*kwo*(1-skid/100):10:2,' |');
writeln('| |');
writeln('+---------------------------------------------------------------+');
end.
