visual basic Дракон каждый год отращивает по три головы, но после того, как ему исполнится 100 лет - только по две. Сколько голов и глаз у дракона, которому N летДракон каждый год отращивает по три головы, но после того, как ему исполнится 100 лет - только по две. Сколько голов и глаз у дракона, которому N лет
Представление.
Объяснение:
В данном случае не хватает сведений для того, чтобы с уверенностью ответить на данный вопрос. Можно с уверенностью сказать, что номер уже имеется на каком-то источнике информации, то есть это не "сбор". Также это не "хранение", так-как информация с одного носителя в конечном итоге перемещается на другой. Также это не является "передачей" информации в полном смысле этого словосочетания, так-как передача осуществляется без преобразования информации.
Соответственно запись номера в телефонную книжку - представление информации из того, в каком виде эта информация поступила к записывающему в текст.
//Версия 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