Создать программу, которая будет вычислять натуральные степени заданного натурального числа от первого до заданного степени. Входные данные: число, самый степень. Выходные данные: в столбик все степени от первого до заданного. Через АЛГО.

Показать ответ

Ответ:

lizabezludnaya

13.02.2021 16:35

Решение больше математическое получилось с выводом формулы, там уж сами выберете как вам лучше.
На каждый следующий день спортсмен пробегает в
$\frac{100+10}{100} = 1.1$
большее расстояние чем в предыдущий.
Т.е. если обобщить:
$S_n = 10(1.1)^{n-1}$
Расстояние, которое спортсмен пробегает каждый n-ный день.
В итоге, у нас получилась геометрическая прогрессия, где
b_1 = 10; q = 1.1

$b_n = 10(1.1)^{n-1}$
Чтобы найти сумму первых n членов геометрической прогрессии:
$S_n = \frac{b1(1-q^n)}{1 - q} \\
S_7 = \frac{10(1-1.1^7)}{1 - 1.1} = \frac{-10(1.1^7-1)}{-0.1} = 100(1.1^7 - 1)$
В программе пишем:
_________________________
var
i:integer;
k:double;
begin
k:=1.1;
for i:=1 to 6 do k:=k*1.1;
writeln(100*(k-1):0:2);
end.
__________________________

0,0(0 оценок)

Ответ:

ученик6бкласса

13.05.2020 10:16

№1
r = 187,5
a = 9
d = 63

№2
var a,b,c,d,e,f:real;
begin
writeln ('Введите оценки полученные в 5 опросах: ');
readln (a,b,c,d,e);
f:=(a+b+c+d+e)/5;
writeln ('Средняя оценка = ',f);
end.

№3
var dengi,a,b,c,d,ostatok:real;
begin
writeln ('Сколько у Вас денег?');
readln (dengi);
writeln ('Введите стоимость перчаток:');
readln (a);
writeln ('Введите стоимость портфеля:');
readln (b);
writeln ('Введите стоимость галстука:');
readln (d);
ostatok:=dengi-a-b-d;
if ostatok <0 then
writeln ('Вам не хватит денег на данную покупку, для совершения этой покупки Вам нужно ещё ', abs(ostatok), ' рублей')
else
writeln ('У Вас останется ',ostatok,' рублей');
end.

0,0(0 оценок)

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