Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Помоите решить.Циклы(паскаль).В послед 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.