using System; public class Program{ public static void Main() { int[] a = new int[10]; for (int i = 1; i < 10; i++) a[i] = i; int count = 0; int sum = 0; int mul = 1; for (int i = 0; i < a.Length; i++) if (a[i] > 0) { count++; sum += a[i]; mul *= a[i]; } Console.WriteLine("сумма : " + sum); Console.WriteLine("произвдение : " + mul); Console.WriteLine("количество : " + count); }}
===PascalABC.Net===
var
number, counter, sum: integer;
begin
Write('Введите число: ');
ReadLn(number);
while number <> 0 do
begin
sum += number mod 10;
counter += 1;
number := number div 10;
end;
Write('Количество цифр в числе: ', counter, ', сумма цифр: ', sum);
end.
Также прикрепляю файл с кодом.