1.Вычислить сумму чисел кратных 7, которые меньше 400.
2.Составить программу для вычисления суммы ряда: от1 до n k/x в кубе,х=7.
Заранее всем спасибо, я действительно буду очень благодарна! :D
Полная версия: Сумма чисел!
пожалуйста помогите решить задачки по информатике!!!!!
1.Вычислить сумму чисел кратных 7, которые меньше 400.
2.Составить программу для вычисления суммы ряда: от1 до n k/x в кубе,х=7.
Заранее всем спасибо, я действительно буду очень благодарна! :D
1.Вычислить сумму чисел кратных 7, которые меньше 400.
2.Составить программу для вычисления суммы ряда: от1 до n k/x в кубе,х=7.
Заранее всем спасибо, я действительно буду очень благодарна! :D
№1:
var
i, s: integer;
begin
i := 0; s := 0;
repeat
inc(s, i); inc(i, 7)
until i > 400;
writeln('s = ', s)
end.
№2:
const
n = 10;
x = 7;
var
s: real;
i: integer;
begin
s := 0;
for i := 1 to n do
s := s + exp( 3 * ln(i/x) );
writeln('s = ', s:10:6)
end.
Код
var
i, s: integer;
begin
i := 0; s := 0;
repeat
inc(s, i); inc(i, 7)
until i > 400;
writeln('s = ', s)
end.
№2:
Код
const
n = 10;
x = 7;
var
s: real;
i: integer;
begin
s := 0;
for i := 1 to n do
s := s + exp( 3 * ln(i/x) );
writeln('s = ', s:10:6)
end.
А можно в 1 задаче заменить чем-нибудь inc???Мы такое не использовали.
s:=s+i;
i:=i+7;
[Это к первой задачке,да?
К первой. Во второй такого нет...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.