ответы на контрольное тестирование по теме обработка графической информации 2 вариант 7 класс

Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write('Введите размер матрицы');Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.

Вводите путь к файлу, кол-во букв и цифр будет в консоли и в конце файла

using System;

using System.IO;

using System.Text;

namespace Program

{

   class Program

   {

       static void Main(string[] args)

       {

           string inputFilePath = Console.ReadLine();

           string inputStr = File.ReadAllText(inputFilePath);

           int letters = 0, digits = 0;

           foreach (var s in inputStr)

           {

               if (char.IsLetter(s))

                   ++letters;

               else if (char.IsDigit(s))

                   ++digits;

           }

           File.AppendAllText(inputFilePath, $"Letters: {letters}, Digits: {digits}");

           Console.WriteLine($"Letters: {letters}\n\rDigits: {digits}\n\r");

           Console.ReadKey();

       }

   }

}