Помогите пожалуйста. Написать программу вычисления суммы цифр числа
10-11 класс
|
program znanija;
var
Num, Summ:word;
begin
Summ:=0;
readln(Num);
repeat
Summ:=Summ+Num mod 10;
Num:=Num div 10;
until Num=0;
writeln('Сумма равна - ', Summ);
readln;
end.
Другие вопросы из категории
что размер файла оказался не менее17 и не более19 Мбайт. С какой частотой дискретизации велась запись?
3. (в программе Паскаль) РЕБЯТКИ помогите)))))))
Читайте также
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
вывести слово «нет». Пример. N = 12 345, М = 12360. Число 12 360 делится на число 15 — сумму цифр числа N
числа; • Найдите наибольшую цифру числа; • Найдите сумму цифр числа, больших 5.
234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да