Итоговые задания по шестому разделу1. Что такое сноска?А) Это гипертекст вне основного текста на источник информации, использован-ный при написании статьи, или комментарий.В) Это ссылка вне основного текста на источник информации, использованныйпри написании статьи, или комментарий.C) Это текст вне основного текста на источник информации, использованныйпри написании статьи, или комментарий.D) Это рисунок вне основного текста на источник информации, использованный при написании статьи, или комментарий.2. Для работы со сносками в текстовом процессоре Word применяется:А) вкладка Разметка страницы группы Сноски;В) вкладка Рассылки группы Сноски;С) вкладка Вставка группы Сноски;D) вкладка Ссылки группы Сноски.
Ответы
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
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
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
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
90 информатика нужно буквы во втором б, з, и. в третьем г-е
Автор: titovass9
Задача 1. Дана блок-схема алгоритма. НачалоОпределить результат выполнення алгоритма при : x=4 и y=3
Автор: AnzhelikaSlabii1705
Сколько раз будет выполнено тело цикла с постусловием, если его условие всегда истинно?
Автор: Yelena Dilyara
Определить истинность условий: а) “Звук”=”звук” б) “улица Калинина”=”ул. Калинина”
Автор: shuxratmaxmedov
Сколько значащих нулей в двоичной записи числа 137?
Автор: optikaleks7
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
if a[i]>sr then write(i:3);
writeln;
end.
Пример:
Массив:
9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
2 3 10 11 13 14 15