Помоите решить.Циклы(паскаль).В послед a1,a2,a3,...an каждый член, начиная с четвёртого, равен последней цифре суммы трёх предыдущих. Найти n-ый элемент последовательности.Да хотелось бы еще чтобы каждая строчка была расписана ...
Помоите решить.Циклы(паскаль).В послед a1,a2,a3,...an каждый член, начиная с четвёртого, равен последней цифре суммы трёх предыдущих. Найти n-ый элемент последовательности.Да хотелось бы еще чтобы каждая строчка была расписана что в ней происходит.
Гость
Ответ(ы) на вопрос:
Гостьuses crt; {Подключение внешнего модуля} var {Описание переменных}
a:array [1..100] of integer;
n,i:integer;
begin
write('n='); {Вывод текста на экран} read(n); {Чтение текста}
for i:=1 to 3 do
a[i]:=random(51); {Значение первых 3 элементов}
for i:=4 to n do
a[i]:=((a[i-1]+a[i-2]+a[i-3]) mod 10); {Значение остальных элементов}
writeln('Последовательность:'); {Вывод текста на экран}
for i:=1 to n do
write(a[i],' '); {Вывод последовательности на экран}
writeln; {Перевод указателя на следующую строку}
write('N-ный элемент: ',a[i]); {Вывод текста и элемента на экран}
end.
Не нашли ответ?
Похожие вопросы