Чтобы поставить пять пробелов подряд,достаточно 5 рас нажать клавишу
Ответ:
Добрый день!
Я не знаю Паскаль, но могу рассказать, что от Вас требуют.
Вы заводите функцию например rec
передаете в нее значение пременной А
внутри фунцкии выполняется: вызов той же функции от А - N. А также возвращается результат вызова этой функции
Также в начале функции вы проверяете, меньше ли это число, чем то, которое было изначально введено в N раз
Реализация на С
F(A,B)
{
if (A > B)
return F(A-N,B);
else
return A;
}
А в программе вызываем : F(N,N);
6e будет первоначальной цифрой потом идёт:11 1017121213 и всё всем помогаю чао
А какие элементы то? Последовательность разной может быть. Например 1, 2, 3, 4, 5, 6 - тут сумма элементов с четными индексами четная. 6, 5, 4, 3, 2, 1 - тут нечетная
Var
m: array [1 .. 16] of integer;
i: integer;
begin
for i := 1 to 16 do
begin
randomize;
m[i] := random(31) + 30;
end;
writeln('Вот Ваш массив');
for i := 1 to 16 do
writeln('m[', i, ']=', m[i], ' ');
readln;
end.