Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.06.2010, 00:41   #1
arturrr
Новичок
Джуниор
 
Регистрация: 24.06.2010
Сообщений: 2
Злость кто сможет помочь с задачей на Pascal?

ДАНА последовательность чисел 20; 21; 22; 23;…..;2n, где n задаётся вводом. вычислить сумму чисел , оканчивающихся на цифру 2. Показателей степеней и числа вывести в табличном виде.

Вот так должно получиться:
Сумма степеней числа два.
Ввести количество слагаемых n:5.
Показатель число
0 1
1 2
2 4
3 8
4 16
5 32
Сумма равна 34
Потом надо повторить запуск с другим количеством слагаемых например n:10 то сумма будет равна 546

From artemavd: что, решил дублированием тем от скуки заняться??

Последний раз редактировалось artemavd; 24.06.2010 в 02:04.
arturrr вне форума Ответить с цитированием
Старый 24.06.2010, 01:28   #2
savva
Форумчанин
 
Регистрация: 10.06.2010
Сообщений: 225
По умолчанию

могу набросать алгоритм,а если ты совсем не бум-бум в проге,тогда тебе в в фриланс.

и ещё,не могу понять

20; 21; 22; 23;…..;2n, это 2 в степени 0, 2 в степени 1 и так далее?
За помощь: Нажмите на весы слева от сообщения!

Последний раз редактировалось savva; 24.06.2010 в 01:30.
savva вне форума Ответить с цитированием
Старый 24.06.2010, 02:02   #3
arturrr
Новичок
Джуниор
 
Регистрация: 24.06.2010
Сообщений: 2
По умолчанию

да там в степени
arturrr вне форума Ответить с цитированием
Старый 24.06.2010, 02:05   #4
shelest
Пользователь
 
Аватар для shelest
 
Регистрация: 01.11.2009
Сообщений: 99
По умолчанию

Код:
uses
  SysUtils,math;
  var
  i,n,d:integer;
  chislo,sum:real;
  s:string;

begin
sum:=0;
writeln('vvedite n');
readln(n);
for i:=0 to n do
begin
chislo:=2;
chislo:=power(chislo,i);
s:=floattostr(chislo);
d:=length(s);
if s[d]='2' then
sum:=sum+chislo;
end;
writeln('summa=',sum:5:0);
readln;
end.
на ток на делфи
shelest вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Кто чем сможет прошу помочь, Pascal Real7 Помощь студентам 2 21.12.2009 16:52
Народ!! Кто чем сможет помочь в решении задач?? Vitruvian Фриланс 15 14.07.2009 22:19
Ребята, кто сможет помочь в написании JAVA кода? Kokakola Помощь студентам 0 07.05.2009 10:21
Кто сможет помочь с библиотекой в C++ Перец Помощь студентам 7 23.03.2009 20:00