Readln(m);
rez:=1;
while (i<=m) do
begin
rez:=rez*m;
inc(m);
inc(i);
end;
write(rez);
Системный признак (категория) текста, связанный со свойством текста фиксировать знания о мире, отражающие авторское мировосприятие, выраженное в конкретной речевой форме.
Выделяют виды
<span> Выделяются следующие виды информации информаций: логическая и эстетическая.</span>
<span>д) мне так кажется незнаю почему но мне кажется кинотеатр</span>
<em>// PascalABC.NET 3.2, сборка 1325 от 19.10.2016</em>
begin
var a:=MatrixRandom(10,10,-10,10);
var sp:=0; var sn:=0;
for var i:=0 to 9 do begin
for var j:=0 to 9 do begin
Write(a[i,j]:4);
if a[i,j]>0 then Inc(sp)
else
if a[i,j]<0 then Inc(sn)
end;
Writeln
end;
Writeln('Положительных ',sp,', отрицательных ',sn)
end.
Пример
-2 4 5 10 3 7 -8 -1 -5 -9
-2 6 -3 8 10 9 -8 3 9 9
2 10 3 5 10 1 -9 4 -7 3
9 1 -3 -5 7 5 2 0 -7 3
2 1 10 -8 -8 6 -8 -3 -5 0
-2 -10 -7 9 -9 -1 -9 10 -10 -8
6 -1 -4 3 -7 7 -1 -8 -10 -5
-3 2 0 -5 -4 -10 -10 0 3 -7
-1 5 -2 4 -6 9 -3 -1 -7 -2
3 2 0 -10 8 -7 -5 -3 10 -5
Положительных 44, отрицательных 51