Найти сумму логарифмов всех целых чисел кратных 6 из отрезка

@lio · Регистрация: 11.10.2009

Author24 — интернет-сервис помощи студентам

Найти сумму логарифмов всех целых чисел кратных 6 из отрезка [A;B]

@System.exe · 09.11.2009, 23:43

Pascal

Var A,B,i:integer;
s:double;
begin
writeln('vvedite konci intervala [A,B]');
readln(A,B);
s:=0;
for i:=A to B do
begin
if i mod 6=0 then
s:=s+ln(i);
else continue
end;
writeln('s=', s:6:3)
end.

Добавлено через 37 минут
Вот прога с функцией

Pascal

Var A,B,j:integer;
s:real;
function summa(i:integer):real;
begin
summa:=ln(i)
end;
begin
writeln('enter A and B');
readln(A,B);
s:=0;
for j:=A to B do
begin
if j mod 6=0 then
s:=s+summa(j);
else continue
end;
writeln('s=', s:6:3)
end.

@lio 1 / 1 / 0 Регистрация: 11.10.2009 Сообщений: 30
		1
	Найти сумму логарифмов всех целых чисел кратных 6 из отрезка 09.11.2009, 22:35. Показов 1605. Ответов 1 Метки нет (Все метки) Найти сумму логарифмов всех целых чисел кратных 6 из отрезка [A;B] 0

	09.11.2009, 23:43

Найти сумму логарифмов всех целых чисел кратных 6 из отрезка

Решение