Найти сумму и произведение цифр данного числа - QBasic

Формулировка задачи:

Во всех задачах Имя входного файла: input.txt Имя выходного файла: output.txt Ограничение по времени: 1 секунда Ограничение по памяти: 64 мегабайта Сумма и произведение цифр Дано четырехзначное число. Найти сумму и произведение цифр данного числа. Входные данные: Одно целое четырехзначное число N (1000≤N≤9999). Входные данные: Вывести в первой строке сумму цифр числа N, а во второй строке произведение цифр числа N. Пример: input.txt 1234 output.txt 10 24 Как написать это в программе Basic? Напишите пожалуйста

Код к задаче: «Найти сумму и произведение цифр данного числа - QBasic»

textual
DECLARE FUNCTION M! (i!)
 
CLS
OPEN "input.txt" FOR INPUT AS #1
OPEN "output.txt" FOR OUTPUT AS #2
DIM SHARED n AS STRING
INPUT #1, n
p = 1
 
FOR i = 1 TO LEN(n)
   s = s + M(i)
   p = p * M(i)
NEXT
 
PRINT #2, s
PRINT #2, p
END
 
FUNCTION M (i)
   M = VAL(MID$(n, i, 1))
END FUNCTION

10   голосов, оценка 3.400 из 5


СОХРАНИТЬ ССЫЛКУ