Готово...............................
Вот программа:
var
x:integer;
function Fact(n:integer): integer;
var
i,sum:integer;
begin
sum:=1;
for i:=1 to n do
sum:=sum*i;
result:=sum;
end;
begin
readln(x);
writeln(Fact(x));
end.
--------->С помощью этой функции найти <span>факториалы пяти данных целых чисел.
- Вы не написали каких чисел</span>
Const N = 50;
var a: array[1..N] of integer;
sum, i: integer;
begin
sum := 0;
a[ 1 ] := 1;
for i := 2 to N do begin
a[ i ] := a[ i - 1 ] + 4;
sum := a[ i ] + sum;
end;
for i := 1 to N do
writeln('A[ ', i, ' ]: ', a[ i ]);
writeln;
writeln('Сумма элементов массива: ', sum);
writeln('Значения 10, 20, 30, 40 элементов, стоящих в нечетных позициях: ' );
writeln('A[ 13 ] = ', A[13],', A[ 25 ] = ', A[25], ', A[ 37 ] = ', A[37], ', A[ 49 ] = ', A[49]);
<span>end.</span>
Var
i,s:integer;
a:array [1..12] of integer;
begin
randomize;
s:=0;
for i:=1 to 12 do
begin
a[i]:=Random(35)+10;
writeln(a[i]);
if a[i] mod 3=0
then s:=s+a[i];
end;
writeln(s);
end.
1 ) A$2+ 2*B2 = 1+ 2*2=1+4=5
то есть в ячейке будет записано число 5
2) А$1+B$1=10+20=30
в ячейке будет записано число 30