1) Компьютер может служить как библиотекарь - он хранит всю информацию которую ты сохранил в нем.
2)Компьютер может и производить вычисления, обработку числового материала.
3)В компьютере ты можешь писать книги, рассказы, информацию и многое другое.
4)Компьютер заменяет и делопроизводителя.
5)Компьютер - так же и неплохой личный секретарь и день распланировать и многое другое.
6)Компьютер - отличный бугхалтер, вычислит все что надо и нужно.
7)в справочном бюро и расписание рейсов узнаешь.
9) в компьютере можно и слова переводить.
10) компьютер передаст все письма от твоих друзей. знакомых и родственников. Хороший почтальон.
11) на компьютере делают красивейшие рисунки и арты.
13) в компьютере можно создавать анимации и многое другое. Вообщем конструктор.
14) в компьютере ты можешь создать эскизы новой одежды, аксессуаров.
15) Также в компьюетере можно создавать эскизы новых зданий.
16) в компьютере можно создавать дизайн одежды, домов, дизайн комнат.
17) на компьютере производят очень красивую музыку.
18) В компьютере можно узнать признаки разных болезней.
19) в компьютере ты можешь учиться и узнавать многое.
20) А сколько игр можно скачать на компьютор, кие только тебе по душе и по вкусу.
Некоторые профессии я не написала ибо не смогла придумать что написать, или от непонимания обязонностей профессии.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
function ОставитьЧисло(Число:integer):boolean;
begin
var ПоследняяЦифра:=Abs(Число mod 10);
Result:=ПоследняяЦифра.IsEven and (ПоследняяЦифра<>0) and
(Число mod ПоследняяЦифра=0)
end;
var Массив:=ArrRandom(12,-10,60);
Массив.Println; // исходный массив
Массив:=Массив.Where(Элемент->ОставитьЧисло(Элемент)).ToArray;
Массив.Println; // отфильтрованный массив
var K:=ReadInteger('Введите число K:');
var ИскомаяПоследняяЦифра:=
ReadInteger('Какой цифрой заканчивается число?');
var Список:=new List<integer>; // создали пустой список
for var Индекс:=0 to Массив.High do
if Abs(Массив[Индекс] mod 10) = ИскомаяПоследняяЦифра then
Список.Add(K);
Список.Add(Массив[Индекс]);
Список.Add(K)
end
else
Массив:=Список.ToArray;
Массив.Println // результирующий массив
end.
1) Компьютер может служить как библиотекарь - он хранит всю информацию которую ты сохранил в нем.
2)Компьютер может и производить вычисления, обработку числового материала.
3)В компьютере ты можешь писать книги, рассказы, информацию и многое другое.
4)Компьютер заменяет и делопроизводителя.
5)Компьютер - так же и неплохой личный секретарь и день распланировать и многое другое.
6)Компьютер - отличный бугхалтер, вычислит все что надо и нужно.
7)в справочном бюро и расписание рейсов узнаешь.
9) в компьютере можно и слова переводить.
10) компьютер передаст все письма от твоих друзей. знакомых и родственников. Хороший почтальон.
11) на компьютере делают красивейшие рисунки и арты.
13) в компьютере можно создавать анимации и многое другое. Вообщем конструктор.
14) в компьютере ты можешь создать эскизы новой одежды, аксессуаров.
15) Также в компьюетере можно создавать эскизы новых зданий.
16) в компьютере можно создавать дизайн одежды, домов, дизайн комнат.
17) на компьютере производят очень красивую музыку.
18) В компьютере можно узнать признаки разных болезней.
19) в компьютере ты можешь учиться и узнавать многое.
20) А сколько игр можно скачать на компьютор, кие только тебе по душе и по вкусу.
Некоторые профессии я не написала ибо не смогла придумать что написать, или от непонимания обязонностей профессии.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
function ОставитьЧисло(Число:integer):boolean;
begin
var ПоследняяЦифра:=Abs(Число mod 10);
Result:=ПоследняяЦифра.IsEven and (ПоследняяЦифра<>0) and
(Число mod ПоследняяЦифра=0)
end;
begin
var Массив:=ArrRandom(12,-10,60);
Массив.Println; // исходный массив
Массив:=Массив.Where(Элемент->ОставитьЧисло(Элемент)).ToArray;
Массив.Println; // отфильтрованный массив
var K:=ReadInteger('Введите число K:');
var ИскомаяПоследняяЦифра:=
ReadInteger('Какой цифрой заканчивается число?');
var Список:=new List<integer>; // создали пустой список
for var Индекс:=0 to Массив.High do
if Abs(Массив[Индекс] mod 10) = ИскомаяПоследняяЦифра then
begin
Список.Add(K);
Список.Add(Массив[Индекс]);
Список.Add(K)
end
else
Список.Add(Массив[Индекс]);
Массив:=Список.ToArray;
Массив.Println // результирующий массив
end.