// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Исходная матрица [',m,',',n,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); a:=Transpose(a); Writeln('*** Транспонированная матрица [',n,',',m,'] ***'); a.Println(4) end.
using System;
namespace restless
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Первый член арифметической прогрессии: ");
double a1 = Convert.ToDouble(Console.ReadLine());
Console.WriteLine("Разность членов арифметической прогресии: ");
double d = Convert.ToDouble(Console.ReadLine());
Console.WriteLine("Количество членов прогрессии: ");
int n = Convert.ToInt32(Console.ReadLine());
double sum = 0, next = a1;
for (int i = 0; i < n; i++)
{
sum += next;
next += d;
}
Console.WriteLine($"Сумма арифметической прогрессии: {sum} ");
}
}
}