Решайте получайте пункты... много пунктов
10-11 класс
|
const
n = 9;
var
x, k, T:integer;
begin
write('x = '); readln(x);
T := 3 * x;
for k := 2 to n do
T := (x + k * k + 4) * T + x - 8;
writeln('T', n, ' = ', T);
end.
Другие вопросы из категории
Читайте также
1
Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры.
1. Найти:
- сумму элементов, имеющих нечетное значение;
- вывести индексы тех элементов, значения которых больше заданного числа А.
2. Определить, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры).
дороги между пунктами нет)
A B C D E F Z
A 7 57
B 7 5 7 27
C 5 3
D 7 3 2
E 27 2 2 8
F 2 3
Z 57 8 3
Определить длину кратчайшего пути между пунктами AиZ (при условии что передвигаться можно только по построенным дорогам)
1)21
2)24
3)42
4) 57
Пожалуйста с подробным решением
Создать"
в)клавиши F7
г)пунктов меню " Пуск" ,выполнить
нахождения времени полёта t1, если есть встречный ветер, скорость которого V1, и времени t2, если ветра нет. Расстояние между пунктами A и Б считать известным и равным S.