1. Наберите слово «Осень» в ячейке А5. Удалите это слово из ячейки. 2. Наберите число «585855» в ячейке В5. Скопируйте это число в ячейку
Е8.
3. Наберите «2017 год ноябрь месяц» в ячейке A7. Вставьте эту информа-
цию полностью в ячейку В7.
4. Перейдя в Лист 2, вставьте в ячейку Е10 скопированное в ячейку в7 сло-
восочетание «2017 год ноябрь месяц».
5. Выполните изменения в ячейках таблицы, как показано на рис. 3.12, и
получите таблицу, показанную на рис. 3.13:
А) установите границы тех ячеек, где записаны данные;
Б) поверните содержимое диапазона А1:C1 на 45 градусов.
объясните как это делать
begin
var a:=ArrRandom(ReadInteger('n='),1,99);
a.Println;
var k:=ReadInteger('k=');
Writeln('Сумма чисел, кратных ',k,': ',
a.Where(x->x mod k=0).Sum)
end.
Тестовое решение:
n= 18
45 17 36 15 65 17 97 44 49 43 60 51 66 72 18 55 71 85
k= 12
Сумма чисел, кратных 12: 168
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,20);
a.Println;
a.Where((x,i)->x=i+1).Println
end.
Тестовое решение:
n= 16
17 2 1 14 20 19 10 3 9 15 14 4 2 7 2 16
2 9 16