Предмет: Информатика, автор: zanduevars

написать программу , которая вводит с клавиатуры число от 0 до 999999(использовать переменные типа longint) и выдает на экран дисплея сумму цифр этого числа. Напишите в делфи пожалуйста.

Ответы

Автор ответа: archery
0
var
    n: longint;
    i, sum: integer;

begin
    Readln(n);
    Sum := 0;
    
    while n > 0 do
    begin
        Sum := sum + (n mod 10);
        n := n div 10;
    end;
    Writeln(sum);
end.
Похожие вопросы
Предмет: Английский язык, автор: burlevlk
Open the brackets and put the verb into Present Simple, Present Continuous, to be going to or Future Simple.

Примечание: Раскройте скобки и запишите в ответе 1 форму глагола. Все слова должны быть написаны с маленькой буквы. Точку в конце ставить не нужно. Всё предложение переписывать не нужно!

Example answer: goes



The train (to leave) at 11.45.

Open the brackets and put the verb into Present Simple, Present Continuous, to be going to or Future Simple.

Примечание: Раскройте скобки и запишите в ответе 1 форму глагола. Все слова должны быть написаны с маленькой буквы. Точку в конце ставить не нужно. Всё предложение переписывать не нужно!

Example answer: goes



We (to have) dinner at a nice restaurant on Saturday. (plans)

Open the brackets and put the verb into Present Simple, Present Continuous, to be going to or Future Simple.

Примечание: Раскройте скобки и запишите в ответе 1 форму глагола. Все слова должны быть написаны с маленькой буквы. Точку в конце ставить не нужно. Всё предложение переписывать не нужно!

Example answer: goes



It (to snow) in the mountains tomorrow evening.