Procedure p(k:integer); var i:integer; begin for i:=1 to 20-4*k do write(k); writeln if k<4 then begin p(k+1); for i:=1 to 20-4*k do write(k); writeln; end; end; begin p(1); end.
1. Для ввода формулы в ячейку С5 необходимо: выбрать (щелкнуть один раз) в 5 строку и 3 столбец и нажать = после = можно вводить формулу 2.Как можно отменить неверную операцию, если Вы ошиблись? сочетанием клавиш Ctrl + z 3.Какой знак не может быть использован в качестве оператора в формуле? В формуле можно использовать любые арифметические операторы: сложение (+), вычитание (-), умножение (*), деление (/), вычисление процентов (%) или возведение в степень (^). Логические операторы: равно (=), больше (>), меньше (<), больше или равно (>=), меньше или равно (<=), не равно (<>). & используется для соединения текстовых строк. Можно использовать скобки. Можно использовать буквы - для указания ссылки на ячейку (н-р, B2) или диапазон (A1:A10). А какой не может быть использован - не знаю. Остаются: ? " ' @ ! 4.Клавишу Enter в MS Word необходимо нажимать: чтобы закончить абзац 5.К чему приводит нажатие на клавиатуре клавиши Delete? удалить символ справа от курсора (следующий за курсором) 6.После ввода формулы в ячейку в ней появилась последовательность символов . Какое и нижеследующих действий Вы должны выполнить? расширить столбец или проверить не отрицательное ли значение даты и времени (если там дата или время) 7.Для перемещения курсора по рабочему полю можно использовать клавиши: стрелку вправо, стрелку влево, стрелку вверх, стрелку вниз, кнопки: Home, End, Page Up, Page Down всё вышеперечисленное можно использовать в сочетании с Ctrl, н-р, Ctrl + End чтобы перейти в самый конец 8.С какого символа начинается формула в Excel? со знака = 9.Программа Excel используется для... Используется для работы с электронными таблицами 10.Можно ли удалить неверно набранный символ? можно, клавишами Backspace и Delete 11.В каких единицах устанавливается размер шрифта? в пунктах (пт) 12.Что Вы видите в строке формул? формулу: операторы и ссылки на значения в ячейках 13. Как скопировать фрагмент текста с мыши? правой кнопкой вызвать контекстное меню и выбрать копировать 14.Какая причина могла привести к появлению в ячейке #ЗНАЧ!? формула содержит недопустимый тип, н-р, когда пытаешься умножить текст 15.Каким можно быстро перейти в начало документа? сочетанием Ctrl + Home 16.Какие данные из перечисленного не могут быть содержимым ячейки? ... (нет перечисленного) 17.Для какой цели может использоваться команда Файл Сохранить как? сохранить файл в другом формате или сохранить копию файла 18.Что обозначает А1:ВЗ? диапазон ячеек начиная с А1 и до B3 19.Какое расширение из приведенных имеют файлы в Excel последние версии Excel: xlsx, xlsm 20.Какие клавиши клавиатуры можно нажать для разделения одного абзаца на два? Enter, Ctrl + Enter 21.Как наиболее эффективно удалить содержимое трех больших несвязанных диапазонов? выделить первый диапазон, нажать сочетание Shift + F8 и выделить два остальных диапазона. Нажать Delete. Чтобы быстро выделить большой диапазон можно использовать сочетания: Ctrl+Shift+стрелку в нужную сторону (выделит с первой ячейки до последней непустой) или ctrl+A (выделить диапазон вокруг выбранной ячейки до непустых ячеек) 22.В какой из формул допущена ошибка? ... (нет формул) 23.Па основе чего строится любая диаграмма? данные из таблицы 24.Можно ли изменить параметры диаграммы после ее построения? да, выбрать в меню: изменить данные 25.Какой из указанных методов редактирования ячейки является неправильным? ... (нет указаний)
Все решения даны в системе программирования PascalABC.NET 3.2, сборка 1382 от 06.02.2017
Если программа не работает, обновите версию!
№1 begin var a:=ReadArrInteger('Вводите числа:',ReadInteger('n=')); var im:=a.IndexMax; Writeln('Максимальный элемент номер ',im+1,' равен ',a[im]) end.
Пример n= 6 Вводите числа: 13 8 -15 0 16 -24 Максимальный элемент номер 5 равен 16
№2 begin var a:=ReadArrInteger('Вводите числа:',ReadInteger('n=')); Sort(a,(x,y)->x>y); a.Println end.
Пример n= 5 Вводите числа: 5 -4 6 0 5 6 5 5 0 -4
№3 begin var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println; Sort(a,(x,y)->x>y); a.Println end.
var i:integer;
begin
for i:=1 to 20-4*k do write(k);
writeln
if k<4 then
begin
p(k+1);
for i:=1 to 20-4*k do write(k);
writeln;
end;
end;
begin
p(1);
end.
Результат:
1111111111111111
222222222222
33333333
4444
33333333
222222222222
1111111111111111