Объяснение:
добавить дополнительный столбец рядом с исходным
ввести формулу с функцией «СЦЕПИТЬ» или формулу с амперсандом в первую ячейку — здесь кому что больше нравится. =СЦЕПИТЬ(A1;» слово») или A1&» слово».
протянуть формулу до конца нового столбца, убедившись, что она затронула весь диапазон
заменить в нем формулы на значения
скопировать данные из нового столбца в первый
удалить новый столбец
На вкладке Вставка в группе Иллюстрации нажмите кнопку Рисунки или Изображения из Интернета.
Используя фотографии или картинки с сайта Bing, вы должны следить за соблюдением авторских прав. На сайте Bing есть фильтр по лицензии, с которого можно выбрать подходящие изображения.
Найдите рисунок, который необходимо вставить, щелкните файл, а затем нажмите кнопку Открыть (если изображение находится на компьютере) или Вставить (если изображение находится в Интернете).
Некоторые файлы, импортированные в документы Visio в виде графических изображений, отображаются в виде метафайлов. Однако файлы точечных рисунков, такие как BMP, JPG, PCX и т. д., остаются точечными рисунками в документе Visio.
сжатие и полное форматирование
Достоинства исполнителя Робот
1) Скорость
Недостатки исполнителя Робот
1) Неправильный перевод предложения. Т. к при буквальном переводе слово в слово теряется смысл. (особенно касается жаргонных английских фраз и идиом ).
Достоинства исполнителя Человек
1) Возможность самостоятельно корректировать и дополнять заданный алгоритм
2) Прочитав первое предложение на шаге 2 переводить его не тупо пословно, а учитывая структуру предложения и тип употребляемых слов(идиомы ,американизмы и.т.д) .
3) Более точная передача смысла фразы
Недостатки исполнителя Человек.
1) Значительно более низкая скорость перевода.
2) Необходимость в перерывах ввиду естественных потребностей (сон,еда,туалет).
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var pow3:integer->integer:=n->n*n*n;
var Good:integer->boolean:=n->(pow3(n div 100)+
pow3((n div 10) mod 10)+pow3(n mod 10))=n;
Range(100,999).Where(x->Good(x)).Print
end.
Результат:
153 370 371 407
2. Школьный вариант
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
var
i,n,d100,d10,d1:integer;
begin
for i:=100 to 999 do begin
d100:=i div 100;
d10:=(i div 10) mod 10;
d1:=i mod 10;
if d100*sqr(d100)+d10*sqr(d10)+d1*sqr(d1)=i then
Write(i,' ')
end;
end.