Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Маринааа
0 / 0 / 0
Регистрация: 08.11.2015
Сообщений: 15
#1

Дано натуральное число n. Вычислить сумму последних k цифр в его записи. Значение k ввести - Turbo Pascal

14.11.2015, 17:28. Просмотров 364. Ответов 1
Метки нет (Все метки)

Решать как циклы с параметром
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.11.2015, 17:28
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дано натуральное число n. Вычислить сумму последних k цифр в его записи. Значение k ввести (Turbo Pascal):

Дано натуральное число N (N<10^255). Вывести на экран количество цифр числа N и сумму его цифр
Дано натуральное число N (N&lt;10^255). Вывести на экран количество цифр числа N и...

Дано натуральное число n. Найти сумму его цифр
Дано натуральное число n. Найти сумму его цифр.

Дано натуральное число N. Вычислите сумму его цифр
Дано натуральное число N. Вычислите сумму его цифр. При решении этой задачи...

Дано натуральное число n. Определить количество цифр в цифровой записи данного числа, которые имеют наименьшее значение
Дано натуральное число n. Определить количество цифр в цифровой записи данного...

Дано натуральное число n, определить сколько цифр в числе n, чему равна сумма его цифр
Дано натуральное число n, определить сколько цифр в числе n, чему равна сумма...

Дано натуральное число N. Определить количество цифр в цифровой записи данного числа, которые имеют наименьшее значение. Пример. N = 4548. Количество
помощи прошу) Дано натуральное число N. Определить количество цифр в...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
15.11.2015, 09:59 #2
Лучший ответ Сообщение было отмечено Маринааа как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  i, k, n, s: integer;
 
begin
  Write('Введите число: ');
  readln(n);
  Write('Введите количество цифр: ');
  readln(k);
  s := 0;
  for i := 1 to k do
  begin
    s := s + n mod 10;
    n := n div 10;
  end;
  Writeln('Сумма цифр: ', s);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.11.2015, 09:59
Привет! Вот еще темы с решениями:

Дано натуральное число - Количество его цифр есть четное число
Мой код. Program rb_2; uses crt; var c:string; begin clrscr; ...

Дано натуральное число. Найти число, получаемое при прочтении его цифр справа налево
помогите с паскалем. Дано натуральное число. Найти число, получаемое при...

Дано натуральное число. найти произведение его цифр.
Дано натуральное число. найти произведение его цифр.

Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. Найти сумму, среднее арифметическое и количество цифр в числе
Ввести целое число и определить, верно ли, что в его записи есть две одинаковые...


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

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

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