Пожалуйста, безотлагательно! Прям очень безотлагательно! Кто разбирается в информатике, помогите! Упрашиваю,

Ответ:

Объяснение:

Задание 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018

Внимание! Если программка не работает, обновите версию!

begin

 var s:=ReadlnString;

 var a:=s.ToWords('.').Select(t-gt;Trim(t)).ToArray;

 var b:=s.ToWords(Arr('.',' '))

     .GroupBy(t-gt;t).Select(t-gt;(t.Key,t.Count))

     .Where(t-gt;t[1]gt;1).Select(t-gt;t[0]).ToArray;

 a.Cartesian(b,(p,q)-gt;p.Contains(q)?p:'')

     .Where(t-gt;t.Lengthgt;0).Distinct.PrintLines

end.

Образцы

Мать мыла полы. Маша ела кашу. Даша пила молоко. Таня мыла полы.

Мама мыла полы

Таня мыла полы

Мать мыла раму.

Маша ела кашу. Даша пила молоко. Таня мыла полы.

Мама мыла рамуТаня мыла полы

Задание 2

uses crt;

var n,i,k:integer;

begin

repeat

write('Введите естественное число gt;0 n=');

read(n);

until ngt;0;

if n=1 then write('Обычных множителей нет')

else

begin

 write(n,'=');

 i:=2;

 while ilt;=n do

  begin

   k:=0;

   while n mod i=0 do

    begin

     k:=k+1;

     n:=n div i;

    end;

   if ilt;n then

    begin

     if k=1 then write(i,'*')

     else if kgt;1 then write(i,'^',k,'*');

    end

   else

    begin

     if k=1 then write(i)

     else if kgt;1 then write(i,'^',k);

    end;

   i:=i+1;

  end;

end;

end.

Задание 3

   var n,m,i:integer;

   function fact(j:integer):longint;

   begin

   if j=1 then fact:=1 else fact:=j*fact(j-1);

   end;

   begin

   readln(m,n);

   for i:=m to n do if i mod 2 =0 then write(fact(i),' ');

   writeln;

   end.

Задание 4

program SomeProgram;

var i,n,summ:integer;

a:array[1..150] of integer;

begin

readln(n); ввод размерности массива

for i:=1 to n do readln(a[i]); ввод массива

summ:=0; обнулим сумму на всякий случай

for i:=1 to n do фактически поиск суммы

if a[i]=i then если номер элемента равен элементу, то...

summ:=summ+a[i]; ...прибавить к сумме значение элемента

Writeln('Сумма:',summ);

end.