<span> С помощью </span>клавиши<span> Backspace </span><span>можно удалить символ слева от курсора.</span>
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
Writeln('П=',a.Where(x->x<0).Aggregate(BigInteger(1),(x,y)->x*y))
end.
<u>Пример</u>
n= 15
-9 1 -6 -2 -9 4 5 -1 6 -6 6 -4 0 5 -10
П=233280
n= 100
4 5 10 -2 9 3 0 7 -2 1 9 -1 -1 -5 -7 5 -4 -6 7 4 -5 10 6 -1 1 -4 -2 5 -6 -10 0 0 -7 -1 -1 7 -6 -1 -3 4 3 -9 7 7 0 -5 7 1 -8 -1 9 6 1 9 6 5 9 1 7 2 -6 6 2 -2 -10 -2 -4 10 6 -3 0 7 8 -8 -10 -7 -7 10 10 -4 0 8 3 6 -8 5 10 -6 4 4 8 4 2 5 -1 8 0 -2 6 -9
П=14271704784175104000000
<span><span>
using</span> System;
using System.IO;
using System.Linq;
namespace FileApp
{
class MainClass
{
private static int Multicast(char first,char second, int system)
{
return Convert.ToInt32(first.ToString(), system) * Convert.ToInt32(second.ToString(), system);
}
private static void Method(string numberString,int system)
{
int firstAndSecond = Multicast(numberString[0], numberString[1], system); // Первые два
int lastAndPrevious = Multicast(numberString.Last(), numberString[numberString.Length - 2], system); //Последний и предпоследний
int firstAndLast = Multicast(numberString.First(), numberString.Last(), system); // Первый и последний
Console.WriteLine($"Произведение первых двух цифр: {firstAndSecond}");
Console.WriteLine($"Произведение последних двух цифр: {lastAndPrevious}");
Console.WriteLine($"Произведение первой и последней цифры: {firstAndLast}");
}
public static void Main(string[] args)
{
Console.Write("Введите число: ");
string numberString = Console.ReadLine(); //Число в виде строки
Console.Write("Выберите систему счисления: ");
int system = Convert.ToInt32(Console.ReadLine());//Система счисления
Method(numberString, system);
Console.ReadLine();//Задержка
}
}
}
</span>
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (x,y,z):=ReadReal3('Введите через пробел три числа:');
if (x+y>z) and (x+z>y) and (y+z>x) then Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
<u>Примеры</u>
Введите через пробел три числа: 2.34 5.18 9
Треугольник не существует
Введите через пробел три числа: 3 4 5
Треугольник существует
3* на 10 в минус первой степени + 8* на 10 в минус второй степени + 5* на 10 в минус третьей степени.
Не могу с телефона степени указать, написала словами