Тема : Конструювання сайтів з використанням онлайн систем. Поняття про мову гіпертекстової розмітки. Які існують критерії: -розташування відомостей на сторінці -оформлення та навігації -швидкості завантаження
изначально s будет равно 25, функция mod - остаток от деления
здесь у нас цикл с условием выполнения, если s будет делиться на 2 без остатка (т.е. остаток будет равен нулю)
в первом случае (когда s=25) у нас получается остаток 1, идем по циклу, получаем s=24 (т.к. s присваивается значение s-1, т.е. 25-1=24) и k=s/2=24/2=12
далее если идти по циклу с s=24, получаем остаток 0 (24/2=12 - целое число без остатка)
по условию цикла получаем k=24 (если остаток 0, то значение s присваиваем k)
будет выведено значение k, равное 24
Объяснение:
изначально s будет равно 25, функция mod - остаток от деления
здесь у нас цикл с условием выполнения, если s будет делиться на 2 без остатка (т.е. остаток будет равен нулю)
в первом случае (когда s=25) у нас получается остаток 1, идем по циклу, получаем s=24 (т.к. s присваивается значение s-1, т.е. 25-1=24) и k=s/2=24/2=12
далее если идти по циклу с s=24, получаем остаток 0 (24/2=12 - целое число без остатка)
по условию цикла получаем k=24 (если остаток 0, то значение s присваиваем k)
1) program Array16;
var
i:integer; // счетчик в цикле
N:integer;
a: array [1..10] of integer;
begin
writeln('Введите N (N<10)');
readln(N); // ввод размера массива
for i:=1 to N do
begin
write('a[',i,']=');
readln(A[i]); // ручной ввод значений массива
end;
writeln('Результат');
for i:=1 to N do
begin
// вычисление и вывод элементов в указанном порядке
write(' ',a[(i div 2+1)*((i) mod 2)+ n*((i+1)mod 2)-((i div 2)-1)*((i+1) mod 2)]);
end;
end.
2) Var A:array[1..100] of integer;
i,n:byte;
Begin
write('Введите n<=100: ');readln(n);
For i:=1 to n do
Begin
A[i]:=random(31);
write(A[i]:3);
End;
writeln;
For i:=1 to n div 2 do
write(A[i]:3,A[n-i+1]:3);
if n mod 2 <>0 then write(A[n div 2+1]:3);
End.