Основные логические операции: Формализация, Инверсия
Дизъюнкция, Конъюнкция, Формализация
Конъюнкция, Импликация
Конъюнкция, Дизъюнкция, Инверсия

Question

Информатика: Основные логические операции: Формализация, Инверсия Дизъюнкция, Конъюнкция, Формализация Конъюнкция, Импликация Конъюнкция, Дизъюнкция, Инверсия

школьницаиркутск · Answer

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
var (s,x):=(ReadlnString('Введите число, можно нецелое:'),0.0);
if TryStrToFloat(s,x) then
    if s.Where(c-> c in ['0'..'9']).Select(c->c.ToDigit).Sum mod 10=5
    then Writeln('Сумма цифр заканчивается на 5')
    else Writeln('Сумма цифр не заканчивается на 5')
else Writeln('Неверное представление числа')
end.

Примеры
Введите число, можно нецелое: -3532175
Сумма цифр не заканчивается на 5

Введите число, можно нецелое: 0.02432413
Сумма цифр не заканчивается на 5

Введите число, можно нецелое: -13.05360214
Сумма цифр заканчивается на 5

Введите число, можно нецелое: 1.23007e-31
Сумма цифр не заканчивается на 5