PascalABC.Net версия 3.2

begin
var a:=ArrRandom(10,0,100); a.Println;
Writeln('Количество пар равно ',
a.Pairwise.Where(x->((x.Item1+x.Item2) mod 6<>0)
and (x.Item1*x.Item2<1000)).Count)
end.

Пример работы программы
84 11 3 74 61 62 52 97 99 35
Количество пар равно 3

Пояснения.
ArrRandom создает нужный массив, Println выводит его на экран.
Расширение PairWise порождает последовательность из пар соседних элементов,
Where образует фильтр этих пар с необходимыми условиями, а Count подсчитывает количество пар, прошедших фильтр.

0 0

4 года назад

Прочитать ещё 2 ответа

Написать программу в Паскале abc. вывести на экран все двузначные числа, сумма цифр которых равна заданному числу n

nataliasmirnova007

Блин! Начал писать программу, а комп ВЫЛЕТЕЛ....
Поэтому припоздал....

uses Crt;
var i, n, m, z1, z2 :integer;

begin
ClrScr;
Write (' n = ');
ReadLn(n);
WriteLn;
if (n<0) or (n>18) then WriteLn (' None!')
else begin
      for i:=11 to 99 do
         begin
           m:=i;
           z1:=m div 10;
           z2:=m mod 10;
           if (z1+z2=n) then Writeln(' m = ', m);
         end;
      end;
ReadLn;
end.

0 0

3 года назад

Прочитать ещё 2 ответа