// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin // В целях упрощения логики программы варианты // выбора кнопок 0 и * вместе не рассматриваются // Writeln('Опускайте монеты достоинством 1,2,5 руб.'); Writeln('Кнопка "0" завершение приема, кнопка "*" - возврат монет'); var s:=ReadlnString; var p:=Pos('*',s); if p>0 then begin var sr:=s[:p].ToIntegers; if sr.Sum>0 then Writeln('Возврат монет: ',s[:p]) else Writeln('Нечего возвращать!') end else begin p:=Pos('0',s); if p>0 then begin s:=s[:p]; var a:=s.ToIntegers; if a.Length>0 then begin var acc:=a.Where(t->t in [1,2,5]); var rej:=a.Where(t->not(t in [1,2,5])); if rej.Count>0 then Writeln('Не приняты: ',rej); var sum:=acc.Sum; if sum mod 5<>0 then begin Writeln('Введена неверная сумма'); Write('Принятые монеты возвращены: '); acc.OrderBy(t->t).Println end else if sum>0 then Writeln('Получите билеты в количестве ',sum div 5,' шт.') end else Writeln('Вы не опустили ни одной монеты') end else Writeln('Вы не выбрали кнопку "0" или "*"') end end.
Примеры Опускайте монеты достоинством 1,2,5 руб. Кнопка "0" завершение приема, кнопка "*" - возврат монет 3 6 3 1 3 5 2 5 2 4 2 3 6 2 1 0 Не приняты: [3,6,3,3,4,3,6] Получите билеты в количестве 4 шт.
Задание 1. Для какого из приведённых значений числа X ложно высказывание: НЕ (X < 6) ИЛИ (X < 5)?
ИЛИ ложно тогда, когда обе части выражения ложны.
В задаче просится найти вариант ответа, при котором данное высказывание будет ложным.
НЕ (X < 6) ⇒ X < 6
(X < 5) ⇒ Х ≥ 5
Итог
6 > Х ≥ 5
ответ - 3) 5
Задание 2. Для какого из приведённых значений числа X истинно высказывание: НЕ (X < 6) И (X < 7)?
И истинно, когда обе части истинны
НЕ (X < 6) ⇒ Х ≥ 6
(X < 7) ⇒ X < 7
Итог
7 > Х ≥ 6
ответ - 2) 6
Задание 3. Для какого из приведённых значений числа X истинно высказывание: (X < 8) И НЕ (X < 7)?
И истинно, когда обе части истинны
(X < 8) ⇒ X < 8
НЕ (X < 7) ⇒ Х ≥ 7
Итог
8 > Х ≥ 7
ответ - 3) 7
Задание 4. Для какого из приведённых чисел истинно высказывание: НЕ (число < 100) И НЕ (число чётное)?
И истинно, когда обе части истинны
НЕ (число < 100) ⇒ число ≥ 100
НЕ (число чётное) ⇒ число нечётное
ответ - 1) 123
Задание 5. Для какого из приведённых чисел ложно высказывание: НЕ (число < 10) ИЛИ НЕ (число чётное)?
ИЛИ ложно тогда, когда обе части выражения ложны.
В задаче просится найти вариант ответа, при котором данное высказывание будет ложным.
НЕ (число < 10) ⇒ число < 10
НЕ (число чётное) ⇒ число чётное
ответ - 4) 8
Задание 6. Для какого из приведённых чисел истинно высказывание: НЕ (Первая цифра чётная) И (Последняя цифра нечётная)?
И истинно, когда обе части истинны
НЕ (Первая цифра чётная) ⇒ первая цифра нечётная
(Последняя цифра нечётная) ⇒ Последняя цифра нечётная
ответ - 3) 3561
Задание 7. Для какого из приведённых имён истинно высказывание: НЕ (Первая буква согласная) И НЕ (Последняя буква гласная)?
И истинно, когда обе части истинны
НЕ (Первая буква согласная) ⇒ первая буква гласная
НЕ (Последняя буква гласная) ⇒ последняя буква согласная
ответ - 1) Юлиан
Задание 8. Для какого из приведённых имён ложно высказывание: НЕ ((Первая буква согласная) И (Последняя буква гласная))?
И ложно, когда обе части ложны, или одна из частей ложна
НЕ ((Первая буква согласная) И (Последняя буква гласная)) ⇒
(Первая буква согласная) И (Последняя буква гласная)
ответ - 1) Дарья
Задание 9. Для какого из данных слов истинно высказывание: НЕ (оканчивается на мягкий знак) И (количество букв чётное)?
И истинно, когда обе части истинны
НЕ (оканчивается на мягкий знак) ⇒ оканчивается не на мягкий знак
(количество букв чётное) ⇒ количество букв чётное
ответ - 2) август
Задание 10. Для какого из данных слов истинно высказывание: НЕ (есть шипящие) И (оканчивается на гласную)?
И истинно, когда обе части истинны
НЕ (есть шипящие) ⇒ нет шипящих
(оканчивается на гласную) ⇒ оканчивается на гласную
ответ - 3) забота
Задание 11. Для какого из данных слов истинно высказывание: (ударение на первый слог) И НЕ (количество букв чётное)?
И истинно, когда обе части истинны
(ударение на первый слог) ⇒ ударение на первый слог
НЕ (количество букв чётное) ⇒ кол-во букв нечетное
ответ - 3) кошка
// Внимание! Если программа не работает, обновите версию!
begin
// В целях упрощения логики программы варианты
// выбора кнопок 0 и * вместе не рассматриваются
//
Writeln('Опускайте монеты достоинством 1,2,5 руб.');
Writeln('Кнопка "0" завершение приема, кнопка "*" - возврат монет');
var s:=ReadlnString;
var p:=Pos('*',s);
if p>0 then begin
var sr:=s[:p].ToIntegers;
if sr.Sum>0 then Writeln('Возврат монет: ',s[:p])
else Writeln('Нечего возвращать!')
end
else begin
p:=Pos('0',s);
if p>0 then begin
s:=s[:p];
var a:=s.ToIntegers;
if a.Length>0 then begin
var acc:=a.Where(t->t in [1,2,5]);
var rej:=a.Where(t->not(t in [1,2,5]));
if rej.Count>0 then Writeln('Не приняты: ',rej);
var sum:=acc.Sum;
if sum mod 5<>0 then begin
Writeln('Введена неверная сумма');
Write('Принятые монеты возвращены: ');
acc.OrderBy(t->t).Println
end
else
if sum>0 then
Writeln('Получите билеты в количестве ',sum div 5,' шт.')
end
else
Writeln('Вы не опустили ни одной монеты')
end
else
Writeln('Вы не выбрали кнопку "0" или "*"')
end
end.
Примеры
Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
3 6 3 1 3 5 2 5 2 4 2 3 6 2 1 0
Не приняты: [3,6,3,3,4,3,6]
Получите билеты в количестве 4 шт.
Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
3 6 3 1 3 5 2 5 2 4 2 3 6 2 1 *
Возврат монет: 3 6 3 1 3 5 2 5 2 4 2 3 6 2 1
Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
3 6 3 1 3 5 2 4 2 3 6 2 1 0
Не приняты: [3,6,3,3,4,3,6]
Введена неверная сумма
Принятые монеты возвращены: 1 1 2 2 2 5
Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
3 6 3 7 3 4 3 8 6 0
Не приняты: [3,6,3,7,3,4,3,8,6]
Опускайте монеты достоинством 1,2,5 руб.
Кнопка "0" завершение приема, кнопка "*" - возврат монет
0
Вы не опустили ни одной монеты