Помогите решить задачки

Люциферчик · 08.11.2011, 19:06

1 задача
Вычислите сумму элементов последовательности Название: a8ebdca0a4c2.jpg
Просмотров: 141

Размер: 3.5 Кб

n=1,2...
которые не превосходят заданной велечины m
выполнить трассировку алгаритма

2 задача
Дана последовательность слов. В каждом из них от 3 до 10 латинских букв; между соседними словами-один пробел; за последним словом- точка.
Вывести в текстовый всеслова,преобразовав их по правилу: удалить из слова вторую букву

Замечание:

У нас использование сторонних фотохостингов без крайней необходимости не допускается. Используйте возможности форума: Как вставить картинки в свой пост
Модератор.

shrek=) · 10.11.2011, 13:32

1 задача
Как я понял последовательность n=1,2,3,4,5,6,...,m
Если это так, то вот:

Код:

var
m,n:integer;
s:real;
begin
writeln ('Input m');
readln (m);
for n:=1 to m do
s:=(sqr(n)/sqrt(sqr(n)+1));
writeln ('summa=',s);
readln
end.

Люциферчик · 14.11.2011, 15:26

Цитата:

Сообщение от shrek=)

1 задача
Как я понял последовательность n=1,2,3,4,5,6,...,m
Если это так, то вот:

Код:

var
m,n:integer;
s:real;
begin
writeln ('Input m');
readln (m);
for n:=1 to m do
s:=(sqr(n)/sqrt(sqr(n)+1));
writeln ('summa=',s);
readln
end.

Спасибо огромное

10.11.2011, 13:32	#2 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	1 задача Как я понял последовательность n=1,2,3,4,5,6,...,m Если это так, то вот: Код: var m,n:integer; s:real; begin writeln ('Input m'); readln (m); for n:=1 to m do s:=(sqr(n)/sqrt(sqr(n)+1)); writeln ('summa=',s); readln end.

08.11.2011, 19:06
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Нужная для вас информация содержится в аналогичных темах Помогите решить две паскальные задачки пожалуйста Решить задачки Помогите решить задачки в Pascal

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070