Видео в ютуб Эдуард Мецкер Паскаль с нуля ч5
using System;
using System.Linq;
namespace Prog
{
public class Program
{
public static void Main(string[] args)
{
Random rnd = new Random();
int len = rnd.Next(5,30);
int[] A = new int[len];
for (int i = 0; i < len; i++)
A[i] = rnd.Next(-50, 50);
Console.WriteLine("{0}", string.Join(" ", A));
var B = Array.FindAll(A, i => i >= A[Array.IndexOf(A, A.Max())-1]);
foreach (int i in B)
Console.Write(i+" ");
}
}
}
var n:integer;
Begin
read(n);
if (n>99) and (n<1000) then writeln('Yes')
else writeln('No');
End.
Ответ:
2) А&В\/неА\/С ≠А&В\/А\/С -неравносильны
1) =(неА+В)&(неВ+С)=неАнеВ+неАС+ВнеВ+ВС= |ВнеВ=0| =неАнеВ+неАС+ВС -равносильны,чтд