Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Sheva2010
0 / 0 / 0
Регистрация: 28.09.2014
Сообщений: 10
1

Составить программу для вычисления суммы цифр, стоящих на нечетных позициях числа

28.09.2014, 16:14. Просмотров 682. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста сделать задачу
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.09.2014, 16:14
Ответы с готовыми решениями:

Составить программу для нахождения суммы нечетных цифр целого числа
Составить программу для нахождения суммы нечетных цифр целого числа

Составить программу вычисления суммы цифр введенного с клавиатуры N -значного числа
Задание 1. помогите составить программу вычисления суммы цифр, введенного с...

Составить программу вычисления суммы цифр введенного с клавиатуры трехзначного числа. +2 задачи.
Люди, не фига не шарю в паскале, поэтому обращаюсь к вам за помощью ) Кто...

Составить программу вычисления суммы крайних цифр введенного с клавиатуры натурального пятизначного числа
Помогите!! Пишу КР на паре. 1) Составить программу вычисления суммы крайних...

Составить программу для вычисления суммы
помощи прошу) Составить программу для вычисления суммы: ...

3
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,714
Записей в блоге: 1
28.09.2014, 16:57 2
Лучший ответ Сообщение было отмечено Sheva2010 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var n,m,s,i:longint;
Begin
    write('Введите 5-тизначное число: ');readln(n);
    While n>0 do
    Begin
      m:=n mod 10;
      n:=n div 10;
      inc(i);
      if odd(i) then s:=s+m;
    End;
    writeln('Сумма = ',s);
    readln;
End.
1
Puporev
Модератор
54584 / 42090 / 29061
Регистрация: 18.05.2008
Сообщений: 99,281
28.09.2014, 17:15 3
Pascal
1
s:=n div 10000+n div 100 mod 10+n mod 10;
0
Cyborg Drone
Модератор
5290 / 3169 / 2441
Регистрация: 17.08.2012
Сообщений: 10,178
29.09.2014, 16:18 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var n, s: longint;
begin
  write('n = ');
  readln(n);
  n := abs(n);
  s := 0;
  while n > 0 do
    begin
      s := s + n mod 10;
      n := n div 100
    end;
  write('s = ', s);
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.09.2014, 16:18

Составить программу для вычисления суммы
10 ЗНАК СУММЫ k*sin k k=1 помогите кто чем может!!!

Составить программу для вычисления суммы ряда...
http://www.cyberforum.ru/attachment.php?attachmentid=53002&stc=1&d=1291782111 ...

Составить программу для вычисления суммы факториалов
p:=1! + 2! + 3! + 4! .. + n! Нужно составить программу для вычисления


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru