Question

сформируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу:
1-й равен удвоенному числу, введенному с клавиатуры;
2-й равен квадрату предыдущего индекса;
3-й равен остатку от деления индекса на 2

Answer 1

uses crt;
const n=9;
var a:array[1..n] of integer;
i,c:integer;
begin;
readln(c);
i:=1;
repeat
a[i]:=c*2;
writeln(a[i]);
a[i+1]:=i*i;
writeln(a[i+1]);
a[i+2]:=(i+2) mod 2;
writeln(a[i+2]);
i:=i+3;
until i=n;
end.