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); }}
asemchenko
19.10.2022
Сделал 1, 2, 7
Каждая программа в отдельной функции (void Program1, void Program2, void Program7)
Если надумаешь копировать текст, то учти, что знаки больше и меньше будут считываться, как кавычки, поэтому нужно будет их переделывать обратно самому
===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.
Также прикрепляю файл с кодом.