ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ИНФА КТО ШАРИТ СЮЛА ИНЫА КТО ШАРИТ СЮДА ИНФА - id1710313920210521 от milana6164 21.05.2021 05:46

Question

Информатика: ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ИНФА КТО ШАРИТ СЮЛА ИНЫА КТО ШАРИТ СЮДА ИНФА КТО ШАРИТ СЮДА ИНФА КТО ШАРИТ СЮДА СДЕЛАЙЬЕ ПО ПУТОНУ ​

milana6164 · Accepted Answer

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1)
begin
var a:=ArrRandom(ReadInteger('n='),20,79); a.Println;
var x:=a.Where(t->t.IsEven).Count;
If x>0 then Println('Количество четных:',x) else Println('Четных нету');
var y:=a.Where(t->t mod 10=6).Count;
If y>0 then Println('Количество оканч. на 6:',y) else Println('Оканч. на 6 нету');
end.

Пример:
n= 5
79 29 27 74 27
Количество четных: 1
Оканч. на 6 нету

2)
begin
var a:=ArrRandom(10,0,100); a.Println;
Println('Кол-во пар:',Range(0,8,2).Where(t->a[t]=a[t+1]).Count)
end.

Пример:
56 93 72 72 71 24 37 55 91 91
Кол-во пар: 2

ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ИНФА КТО ШАРИТ СЮЛА ИНЫА КТО ШАРИТ СЮДА ИНФА КТО ШАРИТ СЮДА ИНФА КТО ШАРИТ СЮДА СДЕЛАЙЬЕ ПО ПУТОНУ ​

MOGZ ответил

ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ХЕЛП ИНФА КТО ШАРИТ СЮЛА ИНЫА КТО ШАРИТ СЮДА ИНФА КТО ШАРИТ СЮДА ИНФА КТО ШАРИТ СЮДА СДЕЛАЙЬЕ ПО ПУТОНУ