1.
const N = 10;
var a: array [1..N] of integer;
i, x: integer;
begin
write('Введите x: ');
readln(x);
for i := 1 to N do
begin
a[i] := x + i - 1;
write(a[i], ' ');
end;
end.
2.
const N = 10;
var a: array [1..N] of integer;
i: integer;
begin
a[1] := 1;
a[2] := 1;
for i := 3 to N do
begin
a[i] := a[i-1] + a[i-2];
end;
for i := 1 to N do
begin
write(a[i], ' ');
end;
end.
3.
const N = 6;
var a: array [1..N] of integer;
i, x: integer;
begin
a[N] := 1;
for i := N-1 downto 1 do
begin
a[i] := 2 * a[i+1];
end;
for i := 1 to N do
begin
write(a[i], ' ');
end;
end.
Объяснение:
ответ:program r5gj;
const n=100;
var
a: array [1..n] of integer;
b,c,d,k,i,l: integer;
begin
k:=0;
for i:=1 to n do
a[i]:=i;
for b:=1 to n do
if (a[b] mod 2=0) and (a[b] > 10) then k:=k+1;
writeln(k, ' - кол-во людей, которые пали' );
c:=3;
l:=c*n;
writeln(l,' - кол-во людей, обратившихся за
d:=2*n;
writeln(d,' - кол-во людей, которые находятся на карантине и не умерли' )
end.
Объяснение: