gassvetlana
?>

Решить.циклы(паскальв послед a1, a2, каждый член, начиная с четвёртого, равен последней цифре суммы трёх предыдущих. найти n-ый элемент последовательности.да хотелось бы еще чтобы каждая строчка была расписана что в ней происходит.

Информатика

Ответы

Виктория Нина

uses crt;   {подключение внешнего модуля}

var {описание переменных}a: array [1..100] of integer;   n,i: integer; beginwrite('n=');   {вывод текста на экран}

read(n);   {чтение текста}for i: =1 to 3 doa[i]: =random(51);   {значение первых 3 элементов}for i: =4 to n doa[i]: =((a[i-1]+a[i-2]+a[i-3]) mod 10);   {значение остальных элементов}writeln('последовательность: ');   {вывод текста на экран}for i: =1 to n dowrite(a[i],' ');   {вывод последовательности на экран}writeln;   {перевод указателя на следующую строку}write('n-ный элемент: ',a[i]);   {вывод текста и элемента на экран}end.

sapelnikovk-74
Program dz1; var x: array[1..100]of integer; i,max,min,n,t,buf,k: integer; begin write('введите кол-во эл-тов n: '); readln(n); for i: =1 to n do x[i]: =random(151)-70; writeln('вывод сген. массива'); for i: =1 to n do write (x[i],' '); writeln; writeln; //1 writeln('поиск max и min: '); max: =1; min: =1; for i: =2 to n do begin if (x[max]< x[i])then max: =i; if (x[min]> x[i])then min: =i; end; writeln('min=',x[min]); writeln('max=',x[max]); t: =x[max]; x[max]: =x[min]; x[min]: =t; //2 for i: =1 to n-1 do   for k: =1 to n-i do   if x[k] < x[k+1] then  begin   buf: =x[k];   x[k]: =x[k+1];   x[k+1]: =buf; end; writeln; writeln('массив отсортирован'); for i: =1 to n do write(x[i],' '); writeln; end. пример: введите кол-во эл-тов n: 15вывод сген. массива32 -38 -35 53 -50 31 66 16 5 28 64 -11 20 -43 -1поиск max и min: min=-50max=66массив отсортирован66 64 53 32 31 28 20 16 5 -1 -11 -35 -38 -43 -50
Artyukhin545
Важной частью операционной системы, влияющей на функционирование эвм, является подсистема процессами. процесс (или по-другому, ) - абстракция, описывающая выполняющуюся программу. для ос процесс представляет собой единицу работы, заявку на  потребление системных ресурсов. подсистема процессами планирует выполнение процессов, то есть распределяет процессорное время между несколькими одновременно существующими в системе процессами, а также занимается созданием и уничтожением процессов, обеспечивает процессы необходимыми системными ресурсами, поддерживает взаимодействие между процессами. 

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Решить.циклы(паскальв послед a1, a2, каждый член, начиная с четвёртого, равен последней цифре суммы трёх предыдущих. найти n-ый элемент последовательности.да хотелось бы еще чтобы каждая строчка была расписана что в ней происходит.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

smook0695
adman7
StudioArtNails
Оксана Анна
avetisov-84850
Taniagrachev
armynis8
gub191025
marvindkc
Margarita
Avdeeva Inga1505
maksmi
argo951385
director
shuramuji