ПИТОН ОЧЕНЬ НУЖНО Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся
на 2.программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0(0-признак окончание ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 30000.
Программа должна вывести одно число:сумму все чисел, кратных 6 и оканчивающихся на 2.
Пример работы программы:
Входные данные
42
6
32
20
12
0
Выходные данные
54

Наиболее популярной программой для работы с ЭТ является Microsoft

Excel. Это программа созданная корпорацией Microsoft для Microsoft

Windows, Windows NT и Mac OS. Она предоставляет возможности экономико-статистических расчетов, графические инструменты и язык макропрограммирования VBA (Visual Basic for Application).

MS Excel2010 входит в состав пакета Microsoft Office. Позволяет выполнять многие инженерные и экономические задачи, представляя данные не

только в табличном, но и в графическом виде.

Рабочая книга Excel – совокупность рабочих листов (от 1 до 255), сохраняемых на диске в одном файле.

Рабочий лист Excel – основной документ, используемый в Excel для

хранения и обработки данных. Состоит из 65536 строк и 256 столбцов.

52

Ячейка – область рабочего листа, находящаяся на пересечении столбца

и строки.

Текущая ячейка – ячейка, в которой находится курсор.

Диапазон ячеек – группа последовательных ячеек.

выделения фрагментов таблицы:

Объект выделения Технология выполнения операции

Ячейка Щелкнуть мышью по ячейке.

Строка Щелкнуть мышью по соответствующему номеру в заголовке строки.

Столбец Щелкнуть мышью по соответствующей букве (номеру)

в заголовке столбца.

Диапазон смежных

ячеек

1. Установить указатель мыши в начало выделения

(в левой верхней ячейке). Нажать левую клавишу мыши. Протащить указатель мыши, закрашивая область

выделения (смещать указатель к правому нижнему углу блока).

2. Щелкнуть мышью на левой верхней ячейке выделяемого блока, нажать клавишу Shift и щелкнуть

мышью на противоположной крайней ячейке.

Диапазон несмежных ячеек

Выделить блок смежных ячеек. Нажать клавишу Ctrl.

Выделить следующий блок ячеек.

Рабочий лист Щелкнуть по ярлычку рабочего листа.

Несколько смежных

рабочих листов

Выделить ярлычок первого рабочего листа. Нажать

клавишу Shift и, не отпуская ее, выделить ярлычок следующего рабочего листа.

Несколько несмежных рабочих листов

Выделить ярлычок первого рабочего листа. Нажать

клавишу Ctrl и, не отпуская ее, выделить ярлычок следующего рабочего листа.

Вся таблица Щелкнуть на левой «пустой» кнопке в заголовке

столбца.

Отменить выделения можно щелкнув по любой другой ячейке (листу).

окончания ввода данных в ячейку:

– нажать клавишу Enter;

– щелкнуть мышью по другой ячейке;

– перейти к другой ячейке с клавиш управления курсором;

– щелкнуть мышью по кнопке (Ввод) в Строке формул;

– щелкнуть мышью на квадратике в нижнем правом углу ячейке (Маркере заполнения).

изменения ширины столбца (высоты строки):

– с команды Формат – Столбец – Ширина… (Формат –

Строка – Высота) указать точную ширину столбца (высоту строки);

53

– с команды Формат – Столбец – Стандартная ширина задать стандартную ширину выделенным столбцам;

– с команды Формат – Столбец – Автоподбор ширины

(Формат – Строка – Автоподбор высоты) осуществить автоподбор в соответствии с введенными данными;

– дважды щелкнуть по правому разделителю в строке заголовка столбца для автоподбора его ширины;

– дважды щелкнуть по нижнему разделителю в столбце заголовка

строки для автоподбора ее высоты;

– поместить указатель мыши на правую границу столбца в строке с заголовками столбцов (указатель примет вид ) и удерживая нажатой левую

клавишу мыши изменить ширину столбца;

– поместить указатель мыши на нижнюю границу строки в столбце с

заголовками строк (указатель примет вид ) и удерживая нажатой левую

клавишу мыши изменить высоту строки.

Контрольные вопросы

1. Что такое электронная таблица?

2. В чем отличие электронной таблицы от простой?

3. Что такое рабочая книга и рабочий лист в Exel?

4. Что такое диапазон ячеек?

5. Какая ячейка называется текущей?

//Pascal ABC.NET v3.1 сборка 1172

Var
 ar:array of integer;
 n,i,min,mini:integer;
begin
randomize;
min:=2147483647;
 writeln('Введите размерность:');
 readln(n);
 setlength(ar,n);
 writeln('Array:');
  for i:=0 to n-1 do
   begin
    ar[i]:=random(-30,30);
    write(ar[i]:4);
    if min>=ar[i] then
     begin
      min:=ar[i];
      mini:=i;
     end;
   end;
  for i:=0 to mini-1 do
   if ar[i]<0 then ar[i]:=0;
 writeln;
 writeln('Final array:');
  for i:=0 to n-1 do
   write(ar[i]:4);
end.

Пример ввода:
5
Пример вывода:
Array:
  -3 -26  -2  18 -21
Final array:
   0 -26  -2  18 -21