1.На основании документа "Отчет о розничных продажах" оформляется: Выберите один ответ: a. Приходный кассовый ордер b. Справка-отчет кассира-операциониста c. Возврат товаров от покупателя d. все ответы верны 2. На основании проведения документа "Инвентаризация товаров на складе" можно сформировать следующие печатные формы документов: Выберите один ответ: a. Унифицированная форма b. Инвентаризационная опись (форма ИНВ-3) c. все перечисленные ответы верны d. Сличительная ведомость (форма ИНВ-19) 3. На основании проведения документа "Инвентаризация товаров на складе" выписываются подчиненные документы: Выберите один ответ: a. отчет о розничных продажах b. оприходование товаров c. все перечисленные ответы верны d. Списание товаров 4. При проведении документа "Отчет о розничных продажах" в проводках указывается счет учета доходов: Выберите один ответ: a. 90.03 b. 90.01.1 c. 90.01.2 d. 90.02.1 5.При проведении документа "Списание товаров" проводки можно редактировать: Выберите один ответ: a. дебет и кредит b. дебет счета c. счета проводки не редактируются d. кредит счета 6. Товары в розничной торговле списываются: Выберите один ответ: a. по покупной стоимости b. продажной стоимости c. покупной и продажной стоимости d. все перечисленные ответы верны
Ответы
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
if s<>s.MatchValue('[01]+') then Write('не ');
Writeln('двоичное число')
end.
Пример
010101111011
двоичное число
begin
var s:=ReadlnString;
if s<>s.MatchValue('[\+-]?\d+.\d+') then Write('не ');
Writeln('дробное число')
end.
Пример
12.54
дробное число
begin
var s:=ReadlnString;
s.Matches('\s([\+-]?\d{2})\s').Select(t->Trim(t.Value)).Println;
end.
Пример
123.3 15 -11.7 +21 23.2 51 9 182
15 +21 51
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
if s<>s.MatchValue('[01]+') then Write('не ');
Writeln('двоичное число')
end.
Пример
010101111011
двоичное число
begin
var s:=ReadlnString;
if s<>s.MatchValue('[\+-]?\d+.\d+') then Write('не ');
Writeln('дробное число')
end.
Пример
12.54
дробное число
begin
var s:=ReadlnString;
s.Matches('\s([\+-]?\d{2})\s').Select(t->Trim(t.Value)).Println;
end.
Пример
123.3 15 -11.7 +21 23.2 51 9 182
15 +21 51
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
const
legal = ['0'..'9', 'A'..'F', 'a'..'f'];
var
s: string;
i: integer;
IsHex: Boolean;
begin
writeln('Введите строку: ');
readln(s);
i := 1;
IsHex := True;
while (i <= length(s)) and IsHex do
begin
if not (s[i] in legal) then IsHex := False;
i := i + 1
end;
if isHex then
writeln('Введенная строка является шестнадцатиричным числом.')
else
writeln('Введенная строка не является шестнадцатиричным числом.');
end.
Тестовое решение:
Введите строку:
58bfa
Введенная строка является шестнадцатиричным числом.
Введите строку:
1054Acg
Введенная строка не является шестнадцатиричным числом.