Решите задачу на поскале) Дано натуральное четырёхзначное число n.Найдите сумму его цифр.
Решите задачу на поскале) Дано натуральное четырёхзначное число n.Найдите сумму его цифр.
Гость
Ответ(ы) на вопрос:
Гостьvar s, x: string; c, n, err, i, d, k:integer; begin readln (s); n:=length(s); for i:=1 to n do begin val(s, k, err); d:=d+k; end; write (d); end.
Не нашли ответ?
Похожие вопросы