7класс из каких разделов состоит программа на языке pascal

Вот. . там немного писать

Основной и вроде бы даже единственный язык, это English.

using System;

class Program

{

static void Main(string[] args)

{

Console.WriteLine("Введите размерность квадратной матрицы:");

int size = Convert.ToInt32(Console.ReadLine());

int[,] matrix = new int[size, size];

Console.WriteLine("Введите элементы матрицы:");

for (int i = 0; i < size; i++)

{

for (int j = 0; j < size; j++)

{

Console.Write($"Элемент [{i},{j}]: ");

matrix[i, j] = Convert.ToInt32(Console.ReadLine());

}

}

int sum = 0;

for (int i = 0; i < size; i++)

{

for (int j = i + 1; j < size; j++)

{

sum += matrix[i, j];

}

}

Console.WriteLine($"Сумма элементов выше главной диагонали: {sum}");

Console.ReadLine();

}

}

Объяснение:

def number_to_words(number):

units = ['', 'один', 'два', 'три', 'четыре', 'пять', 'шесть', 'семь', 'восемь', 'девять']

teens = ['десять', 'одиннадцать', 'двенадцать', 'тринадцать', 'четырнадцать', 'пятнадцать', 'шестнадцать', 'семнадцать', 'восемнадцать', 'девятнадцать']

tens = ['', '', 'двадцать', 'тридцать', 'сорок', 'пятьдесят', 'шестьдесят', 'семьдесят', 'восемьдесят', 'девяносто']

hundreds = ['', 'сто', 'двести', 'триста', 'четыреста', 'пятьсот', 'шестьсот', 'семьсот', 'восемьсот', 'девятьсот']

if number == 0:

return 'ноль'

elif number < 10:

return units[number]

elif number < 20:

return teens[number - 10]

elif number < 100:

ten = number // 10

unit = number % 10

return tens[ten] + ' ' + units[unit]

elif number < 1000:

hundred = number // 100

remainder = number % 100

if remainder == 0:

return hundreds[hundred]

else:

return hundreds[hundred] + ' ' + number_to_words(remainder)

else:

return 'Число вне диапазона'

# Получение ввода от пользователя

number = int(input("Введите число от 0 до 999: "))

# Вывод числа словами

words = number_to_words(number)

print(words)

Объяснение: