Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

С клавиатуры вводится четырехзначное число. необходимо подсчитать сумму цифр этого числа

Ответ оставил Гость

Var sum: integer;
number: longint;
begin
sum := 0;
write(Введите число: );
readln(number);