вводится любые числа и находится их сумма его цифр - Turbo Pascal

  1. в программе вводится любые числа и находится их сумма его цифр


textual

Код к задаче: «вводится любые числа и находится их сумма его цифр - Turbo Pascal»

var
  a, s : integer;
begin
  s := 0;
  write('введтите любое число: ');
  readln(a);
  while a <> 0 do
  begin
    s := s + (a mod 10);
    a := a div 10
  end;
  writeln('сумма цифр: ', s);
  readln
end.

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.000 из 5



Похожие ответы
  1. Не знаю как написать программу, на тип множество: Вводится 15 двузначных чисел. Напечатать каждое число введенное впервые

  1. Доброго времени суток. Помогите, пожалуйста, написать программу. Задание: Задано текст, в котором группы букв и знаков отделены друг от друга символом пробел. Выяснить, встречается в тесте группа из трех букв, которая вводится с клавиатуры, и сколько раз. Буду очень признательна

  1. Вводится последовательность из N целых чисел.Найти сумму положительных n количество отрицательных чисел. напишите полностью програму)

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

  1. Задание: Вводится слово. Верно ли, что оно начинается и оканчивается на одну и ту же букву?

  1. Вводится матрица a(m,n) из 0 и 1. Найти в ней прямоугольную подматрицу из одних единиц максимального размера (т.е. с максимальным произведением высоты на длину). N серых и M белых мышей сидят по кругу. Кошка ходит по кругу по часовой стрелке и съедает каждую S -тую мышку. В первый раз счет начинается с серой мышки. Составить алгоритм определяющий по- рядок в котором сидели мышки, если через некоторое время осталось K серых и L белых мышей. Ввести три числа а,b,с. 1). Представить a в виде суммы минимального числа целых слагаемых x[i], каждое из которых лежит на отрезке [b,c]. 2). Можно ли представить число а таким образом, чтобы k а = х[1] * x[2] * ... * x[k] = П x[i], i>=1, i=1 где b<=x[i]<=c, х[i], а, в, с - целые. Лучшим считается алгоритм находящий такое представление с наименьшим числом множителей. Предусмотреть вариант, когда такого представления не существует. Ввести три числа а,b,с. 1). Представить a в виде суммы минимального числа целых слагаемых x[i], каждое из которых лежит на отрезке [b,c]. 2). Можно ли представить число а таким образом, чтобы k а = х[1] * x[2] * ... * x[k] = П x[i], i>=1, i=1 где b<=x[i]<=c, х[i], а, в, с - целые. Лучшим считается алгоритм находящий такое представление с наименьшим числом множителей. Предусмотреть вариант, когда такого представления не существует. На олимпиаду прибыло N человек. Некоторые из них знакомы меж- ду собой.Можно ли опосредованно перезнакомить их всех между собой? (Незнакомые люди могут познакомиться только через общего знакомо- го).. Надеюсь на помощь...Добавлено через 48 минут Был бы рад хотя бы за одну решенную задачу...Добавлено через 49 минут Могу предложить рублей 50 за задачу))Добавлено через 1 час 53 минуты Есть предлжения?Добавлено через 19 часов 56 минут Ну???

  1. Помогите, пожалуйста!!! Найти ошибку в коде. Очень нужно Вот условие: Вводится пятизначное число, нужно найти сумму его цифр и произведение цифр. Если сумма = произведению, вывести на экран.