Pascal abcнапишите программу, которая определяет - вопрос №7068494 от 2003mariasMaria 28.04.2021 15:21

Question

Информатика: Pascal abcнапишите программу, которая определяет правильность записи целого числа в восьмеричной системе счисления. формат входных данных на вход программы поступает символьная строка. формат выходных данных программа должна вывести ответ yes , если строка представляет собой правильную запись целого числа в восьмеричной системе счисления, и no , если запись ошибочна.

2003mariasMaria · Answer

Var value, error: integer;beginvar s:=readstring ( Введите строку: );val (s, value, error);if (error 0) or ( 9 in s) or ( 8 in s) then write ( NO ) else write ( YES );end....