Напишите код на языке Pascal
Сергей живёт на окраине города и поэтому, чтобы добраться до офиса, ему приходится каждый день проезжать n станций метро. Оказалось, что на каждую станцию метро тратится t1 минут. Но не так давно Сергей купил свою первую машину и теперь он тратит на дорогу гораздо меньше времени! На пути к офису расположено k кварталов (каждый машина проезжает за t2 минут) и m светофоров (на каждом машина стоит t3 минут) Сергею стало интересно на сколько быстрее его новый способ передвижения. Помогите ему ответить на этот вопрос!
Формат ввода
В первых трёх строках через записаны целые числа n, k и m - количество станций, кварталов и светофоров соответственно (0 ≤ n, k, m ≤ 1000). В следующих трех строках целые числа t1, t2 и t3 - время, которое тратится на преодоление одной станции метро, квартала и светофора соответственно (0 ≤ t1, t2, t3 ≤ 1000).
Формат вывода
Выведите одно число - на сколько быстрее Сергей добирается от дома до своего офиса. Если же способ передвижения на машине дольше чем на метро, то выведите -1.
Var
x, a, s: real;
n, i: integer;
begin
write('Введите x и n ');
readln(x, n);
a := 1;
s := a;
for i := 1 to n do
begin
a := a * (-1) * x * x / (2 * i - 1) / (2 * i);
s := s + a;
end;
writeln('S = ', s:10:3);
end.
Загадки:в этом заведении
все перебывали
двоечники,гении
отметки получали
учились здесь артисты
певцы,артиллеристы
сюда хожу и я,
и вы,мои друзья(школа)
что же за предмет такой,
девчонки и мальчишки?
для каждого он-дорогой
что это (записная книжка)
через поле и лесок подается голосок
он бежит по проводам-
скажешь здесь а слышно там (телефон)
<span>1) 1 Кбайт = 1024 байт = 8192 бит
2) 0.1083984375 Кбайт = 111 байт = 888 бит
3) 2 Кбайт = 2048 байт = 16384 бит</span>
Var
a:integer;
begin
write('a=');
readln(a);
if (a mod 2 = 0) and ((a div 10) mod 2 = 0) then
writeln('Да')
else
writeln('Нет')
end.