uses Crt;
var
NUM: integer;
Recieve: Char;
function SumDigit(N: integer): integer;
var
Sum: integer;
begin
Sum := 0;
while N > 0 do
begin
Sum := Sum + (N mod 10);
N := N div 10;
end;
Sum := Sum + N;
SumDigit := Sum;
end;
begin
repeat
repeat
ClrScr;
Write('Vvedite chislo: ');
ReadLn(NUM);
if not(NUM in [10 .. 99]) then
begin
WriteLn('Chislo NE vhodit v zadannyi diapazon [10..99]!');
ReadKey;
end;
until NUM in [10 .. 99];
WriteLn('Summa cifr chisla ', NUM, ': ', SumDigit(NUM));
WriteLn;
Write('Zavershit programmu? [y/n] ');
Recieve := UpCase(ReadKey);
until Recieve = 'Y';
end.
Похожие записи/страницы:
- Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (99>=N>=10) (N — входной, S — выходной…
- Написать рекурсивную функцию вычисления суммы цифр натурального числа - Pascal(Паскаль)
- Дано натуральное число.Определить сумму квадратов его цифр- Pascal (Паскаль)-CF
- Определить, в каком из данных двух целых чисел больше цифр - Pascal(Паскаль)
- Дано натуральное n. Определите: (а) количество цифр в числе n; (б) сумму цифр числа n; (в) первую цифру числа n…
- Описать процедуру fib(f,n), записывающую в типизированный файл f все числа Фибоначчи (1, 1, 2, 3, 5, ...), не…
- дано трёхзначное число, если оно состоит из одинаковых цифр - вывести "да", в обратном случае - "нет"в цикле…
- Перевести числа 675, 865 в 8-ую систему счисления. Выполнить над переведенными числами сложение. Выполнить…