Предмет: Информатика,
автор: sanjarakurbanova
дано натуральное чесло,напешите программу, которая находит сумму его цифр
Ответы
Автор ответа:
0
Ответ:
готово
Объяснение:
program summa;
var
n, s, i: integer;
st: string;
begin
Write('Введите число: ');
ReadLn(n);
st := inttostr(n);
for i := 1 to length(st) do
s := s + strtoint(st[i]);
WriteLn('Сумма цифр данного числа равна ', s);
end.
Похожие вопросы
Предмет: Литература,
автор: Violettik12
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: BAG0802
Предмет: Литература,
автор: фиалка38
Предмет: Математика,
автор: vladikbologov