Новые возможности, которые добавляют разработчики, позволяют вообще написать одну строчку:
Код (PascalABC.NET):
## ArrRandomInteger(13).Println.Average.Print;
## говорит о том, что компилятор добавит в начало и конец begin и end.
ArrRandomInteger(13) - функция, генерирующая массив из 13 случайных целых чисел
Println - метод расширения, выводящий элементы через пробел и в конце переходящий на новую строку
Average - метод, вычисляющий среднее значение
Print - вывод значения на экран
В стиле "старого" паскаля:
Код (PascalABC.NET):
var
a: array[1..13] of integer;
s, i: integer;
begin
randomize;
s := 0;
for i := 1 to 13 do
begin
a[i] := random(100);
write(a[i], ' ');
s := s + a[i];
end;
writeln;
write(s / 13);
end.
Пример вывода:
38 86 86 0 24 95 51 41 32 18 74 15 55
47.3076923076923
Поделитесь своими знаниями, ответьте на вопрос:
1.Чем определяется адрес в электронной таблице? * номером листа и номером строки номером листа и именем строки названием столбца и номером строки номером строки 2. Какой адрес ячейки в электронной таблице правильный? * H14D F457 23G J7K8 3. Выбрать правильную форму записи арифметического выражения в электронной таблице * Подпись отсутствует =2^(3*2, 15)+7-26/(15*27-46) =2^(3*2, 15+7)-26/(15*27-46) =(2^(3*2, 15+7)-26)/(15*27-46) =(2^(3*2, 15+7)-26)/15*27-46 4.В ЭТ записано арифметическое выражение: =(9-2)^2/4*3-7. Напишите номер математической записи соответствующей этому выражению * Подпись отсутствует 1 2 3 4 Дан фрагмент электронной таблицы, содержащей числа и формулы. После выполнения расчетов по формулам значение в ячейке В3 будет равно * Подпись отсутствует 2, 4 2, 2 4, 2 4 4, 4 ребят у нас самостоятельная работа
2 1 6 2 10 3 14 4 18 5
Объяснение:
n = 1
n - чётное (НЕТ)
y = 2 * 1 = 2
Вывод на экран: 2
n = 1 + 1 = 2
2 <= 10 (ДА)
n = 2
n - чётное (ДА)
y = 2 / 2 = 1
Вывод на экран: 1
n = 2 + 1 = 3
3 <= 10 (ДА)
n = 3
n - чётное (НЕТ)
y = 2 * 3 = 6
Вывод на экран: 6
n = 3 + 1 = 4
4 <= 10 (ДА)
n = 4
n - чётное (ДА)
y = 4 / 2 = 2
Вывод на экран: 2
n = 4 + 1 = 5
5 <= 10 (ДА)
n = 5
n - чётное (НЕТ)
y = 2 * 5 = 10
Вывод на экран: 10
n = 5 + 1 = 6
6 <= 10 (ДА)
n = 6
n - чётное (ДА)
y = 6 / 2 = 3
Вывод на экран: 3
n = 6 + 1 = 7
7 <= 10 (ДА)
n = 7
n - чётное (НЕТ)
y = 2 * 7 = 14
Вывод на экран: 14
n = 7 + 1 = 8
8 <= 10 (ДА)
n = 8
n - чётное (ДА)
y = 8 / 2 = 4
Вывод на экран: 4
n = 8 + 1 = 9
9 <= 10 (ДА)
n = 9
n - чётное (НЕТ)
y = 2 * 9 = 18
Вывод на экран: 18
n = 9 + 1 = 10
10 <= 10 (ДА)
n = 10
n - чётное (ДА)
y = 10 / 2 = 5
Вывод на экран: 5
n = 10 + 1 = 11
11 <= 10 (НЕТ)