Регистрация
Ididhhxj
10.08.2020 08:40
Информатика
Есть ответ 👍

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

184
449
Посмотреть ответы 2

Ответы на вопрос:

AlekseyLascot
AlekseyLascot
4,4(27 оценок)
Var value, error: integer; begin var s: =readstring ('введите строку: '); val (s, value, error); if (error< > 0) or ('9' in s) or ('8' in s) then write ('no') else write ('yes'); end.
Vafelka471
Vafelka471
4,5(17 оценок)
Var       x, s, a: real;       i: integer; begin       write('введите x');       readln(x);       a : = x;       s : = a;       for i : = 1 to 6 do       begin               a : = a * (-1) * x * x / (2 * i) / (2 * i + 1);               s : = s + a;       end;             writeln('s = ', s: 10: 3); end.

Популярно: Информатика