Вот в придложенном файле работающая программа, только я пока не догнал как ее коруглить, чтобы в ответе не было число + куча нолей в степени Е+00, а было просто числа например 2.5 или 3,7 или просто 5 или 7
Напишите код на языке Pascal
Сергей живёт на окраине города и поэтому, чтобы добраться до офиса, ему приходится каждый день проезжать n станций метро. Оказалось, что на каждую станцию метро тратится t1 минут. Но не так давно Сергей купил свою первую машину и теперь он тратит на дорогу гораздо меньше времени! На пути к офису расположено k кварталов (каждый машина проезжает за t2 минут) и m светофоров (на каждом машина стоит t3 минут) Сергею стало интересно на сколько быстрее его новый способ передвижения. Помогите ему ответить на этот вопрос!
Формат ввода
В первых трёх строках через записаны целые числа n, k и m - количество станций, кварталов и светофоров соответственно (0 ≤ n, k, m ≤ 1000). В следующих трех строках целые числа t1, t2 и t3 - время, которое тратится на преодоление одной станции метро, квартала и светофора соответственно (0 ≤ t1, t2, t3 ≤ 1000).
Формат вывода
Выведите одно число - на сколько быстрее Сергей добирается от дома до своего офиса. Если же способ передвижения на машине дольше чем на метро, то выведите -1.
самый большое число номера месяца - 31. ближайшее число обозначающее целую степень двойки - это 32. подставим его в формулу
N=2^i, 32=2^i, 2^5=2^i отсюда i=5 бит следовательно, пятибитового кода будет достаточно для хранения информации о порядковом номере дня любого месяца в году
Наверное алгоритм но я точно не знаю
{Файл: prog3_13.pasЗадача: Дано целое положительное число n, вещественное число x. Найти значение многочлена вида an*x^n+a(n-1)*x^(n-1)+...+a1*x^1+a0, если коэффициент многочлена вводятся последовательно с клавиатуры в следующем порядке:an, a(n-1), ..., a1, a0Автор: Дата 22,09,2015}var n, a, i, j :integer; x, p, x1 :real; begin p:=0; {ввод постояных x, n} writeln ('введите n, x'); readln (n, x); {начало вычисление многочлена} for i:=n downto 1 do begin {ввод an, an-1,..., a1, a0} writeln ('введите a',i); readln (a); for j:=1 to n do begin {вычисление x^n} x1:=1; x1:= x1*x; end; {вычисление an*x^n+a(n-1)+x^(n-1)+...+a1*x^1+a0} p:=a*x1+p; end; {ответ} writeln('значение многочлена ',p);end.