Заповнити масив 10 цiлими числами,якi е елементами послiдовностi 2;5;10;17...
10-11 класс
|
uses crt;
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
k:=3;
a[1]:=2;
for i:=2 to n do
begin
a[i]:=a[i-1]+k;
k:=k+2;
end;
for i:=1 to n do
writeln(a[i]);
end.
Другие вопросы из категории
См.Фото.
Нужно написать программу в Паскале!
Читайте также
3E,B2(16 снизу)>>X(10 снизу)
1011,1101(2 снизу)>>X(10 снизу)
415,37(8 снизу)>>X(10 снизу)
помогите плиз
2.определите какие блоки программы присутствуют в тексте. 3.Определите размер массива. 4. Сколько элементов массива обрабатывается.
For i:= 0 to 10 do
A [ i] := i ;
for i := 0 to 10 do
begin
k := A [i];
A [i] : = A[10-i];
k := A[10-i];
end;
данный массив.
s: = 0;
n : = 10 ;
for i : = 1 to n do
begin
if i = n - i then s : = s + A[i] + A[i + 1];
end;
В начале выполнения этого фрагмента в массиве находились числа 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, т. е. элемент А[0]=0, А[1]=2 и т. д. Чему будет равно значение переменной s после выполнения данной программы?
1) 0
2) 11
3) 22
4) 110
28 15 10
Наибольшее число: 28
2)Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.
Пример:
Введите число:
100
Сумма = 500
Буду очень признателен за помощь.
10->8->2->16,
10->9.
2)Переведите число 10E7 по схемам
16->2->10,
16->10.