В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
aysol
aysol
07.04.2020 01:46 •  Информатика

CРОЧНО Задача С++
Арифметическое выражение
Вам будет дано правильное арифметическое выражение, содержащее круглые скобки, операции + (сложение), - (вычитание), * (умножение), / (целочисленное деление), ^ (возведение в степень), - (знак числа), переменные x, y и целочисленные константы.

Для каждой заданной пары значений переменных x, y выведите значение арифметического выражения. Гарантируется, что значение выражения не превосходит по абсолютной величине 263 - 1.

Формат входных данных
В первой строке входных данных заданно соответсвующее условию арифметическое выражение. Выражение содержит только знаки операций, скобки, переменные x, y, целочисленные константы (без пробелов).

Во второй строке задано натуральное число N (1 ≤ N ≤ 1000) - колечиство пар значений переменных x, y.

В каждой из последующих N строк содержаться два целых числа, разделенных пробелом - значения перменных x и y.

Формат результата
Для каждой пары значений переменных x и y из входных данных выведите в отдельную строку единственное целое число - значение арифметического выражения.

Примеры
Входные данные
x+y
1
4 5
Результат работы
9
Входные данные
-x+y
1
4 5
Результат работы
1
Входные данные
x^y
2
1 1
4 5
Результат работы
1
1024

Показать ответ
Ответ:
moldirkurmanbek
moldirkurmanbek
05.06.2023 17:37
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

function IsGood(Self:integer):boolean; extensionmethod;
begin
  (var max,var min,var n):=(0,9,abs(Self));
  while n>0 do begin
    var d:=n mod 10;
    if d>max then max:=d;
    if d<min then min:=d;
    n:=n div 10
    end;
  Result:=max-min<5
end;

function P(name:string):double;
begin
  Result:=ReadElements&<integer>(name).Where(n->n.IsGood).Average
end;
 
begin
  Writeln('Среднее арифметическое равно ',P(ReadlnString('Имя файла:')))
end.

Пример
Имя файла: integers.pas
Среднее арифметическое равно 1.78571428571429
0,0(0 оценок)
Ответ:
scream75821
scream75821
03.06.2020 15:36

На протяжении всей истории существования человека он то и дело пытался совершенствовать мир вокруг, чтобы улучшить свою жизнь сделать ее проще и комфортнее. История создания компьютера – это прежде всего стремление человека изобрести устройство для решения задач, непосильных для человеческого разума. И как показывает практика, задача эта исполнена на "ура".

Если вы думаете, что компьютер появился несколько десятилетий назад, то глубоко заблуждаетесь, ведь его история насчитывает несколько столетий. Конечно же, первые предки современного ПК были очень примитивными и даже язык не поворачивается назвать их "компьютерами", но не пройдя всех этих этапов становления он, возможно, не стал таким чудом техники.

Итак, первым созданным компьютером в истории человечества считается машина для подсчетов Блеза Паскаля, возникшая в 1642 году. Это был первый примитивный калькулятор, который изобретателю слагать и вычитать. Изобретение Паскаля считается нулевым этапом в разработке компьютеров и для своего времени это было прогрессивное устройство, ведь ранее никаких попыток механизировать вычисления не было.

Придуманный Паскалем "компьютер" назвали "Паскалина" и представлял он собой ящик с многочисленными шестернями. С колесиков прибор позволял вводить числа от 0 до 9, а в верхней части корпуса, после ввода исходных данных, показывался результат.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота