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

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

Можно последовательно делить это число на разряды и находить целую часть от деления.

Чтобы найти первую цифру, нам нужно будет поделить число на тысячу и зафиксировать целую часть деления:

n1 : = chisl div 1000;

Если число было, например 4521, то n1 станет равно 4.

Чтобы найти вторую цифру, нам нужно будет поделить число на сто и зафиксировать целую часть деления:

n2 : = chisl mod 1000 div 100;

Для нашего примера n2 станет равным 5.

Чтобы найти третью цифру, нам нужно будет поделить число на десять и зафиксировать целую часть деления:

n3 : = chisl mod 1000 mod 100 div 10;

Для нашего примера n3 станет равным 2.

Найдем четвертую цифру:

n4 : = n3 mod 10;

sum : = n1 + n2 + n3 + n4;