Экономика
Гость
12.09.2019
Помоите решить.Циклы(паскаль).В послед 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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос Помоите решить.Циклы(паскаль).В послед a1,a2,a3,...an каждый член, начиная с четвёртого, равен последней цифре суммы трёх предыдущих. Найти n-ый элемент последовательности.Да хотелось бы еще чтобы каждая строчка была расписана что в ней происходит. по предмету Экономика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.