Как посчитать сумму цифр числа в паскале

Как посчитать сумму цифр числа в паскале

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

Поиск по форуму
Расширенный поиск
К странице.

Помогите написать программу с подробным описание алгоритма

Найти сумму цифр числа.

PAREN_DEFO
Посмотреть профиль
Найти ещё сообщения от PAREN_DEFO

Дык "помогите" или "напишите за меня программу, да, и еще с подробным описанием алгоритма, а я тут посижу и подожду"?

Под помощью подразумевается, что вы пытаетесь сделать что-то сами, показываете код, рассказываете, что не получается и т.д.

Число 732405

1-я итерация
sum := 0 + (732405 mod 10);
number := (732405 div 10);

2-я итерация
sum := 5 + (73240 mod 10);
number := (73240 div 10);

3-я итерация
sum := 5 + (7324 mod 10);
number := (7324 div 10);

4-я итерация
sum := 9 + (732 mod 10);
number := (732 div 10);

5-я итерация
sum := 11 + (73 mod 10);
number := (73 div 10);

6-я итерация
sum := 14 + (7 mod 10);
number := (7 div 10);

Найти сумму цифр числа

Найти сумму цифр числа
Доброе всем время суток! Программирую на Visual Basic. Как написать на Pascal примерно.

Найти сумму цифр числа
найти сумму цифр числа (использовать подпрограмму)

Найти сумму цифр числа
дано четырехзначное число,найти сумму цифр этого числа??

Лучший ответСообщение было отмечено Памирыч как решение

Решение

Найти сумму цифр числа
дано четырехзначное число,найти сумму цифр этого числа

Найти сумму первых трех цифр дробной части вещественного числа.например для числа 23,16809 она равна 15
Найти сумму первых трех цифр дробной части вещественного числа.например для числа 23,16809 она.

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

Найти сумму цифр данного числа
дано число (введено с клавиатуры) найти сумму цифр в этом числе. например число 1547, ответ 17.

Паскаль плз. Найти сумму цифр числа. сказали решать через function. делением чтоли. никак сообразить не могу(

var n:integer;
begin
write(‘vvedite chislo: ‘);readln(n);
write(‘suumma: ‘,summa(n));
readln
end.

o_O, алгоритм — считываем число в формате string, через цикл запускаем поочередное считывание чисел с последующим преобразованием в тип числа и прибавляем к предыдущему, здесь можно обойтись и без functions
вот задача которую давно писал я
попробуй будет ли работать
var
a,b,res1,res2:int64;
begin
res1:=1;
res2:=1;
readln(a,b);
a:=abs(a);
b:=abs(b);
if(a=0)or(b=0)then
writeln(‘0’) else begin

while a>0 do
begin
res1:=res1*(a mod 10);
a:=a div 10;
end;

while b>0 do
begin
res2:=res2+(b mod 10);
b:=b div 10;
end;

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *