1)
const
n=12;
var
i,p:integer;
begin
p:=1;
for i:=1 to n do
p:=p*i;
writeln(P);
<span>end.
2)
const
n=7;
varc:array[1..7]of integer;
i,s:integer;
begin
for i:=1 to n do
begin
readln(c[i]);
s:=s+c[i];
end;
writeln(s)
<span>end.
</span>3)
const
a=20.3;
var
x,y:real;
begin
readln(x);
if x>1 then y:=ln(x+1)
else y:=sqr(cos(sqrt(abs(a*x))));
writeln(y);
<span>end.</span></span>
Var x:integer; y:real;
Begin
write('x=');
readln(x);
y:=((x*x)-(7*x)+10)/((x*x)-(8*x)+12);
writeln('y=',y);
End.
Begin
writeln('Привет, начинающий программист, тебя приветствует Pascal');
end.
В 1804 году Жозеф Мари Жаккар<span> разработал ткацкий станок, в котором вышиваемый узор определялся </span>перфокартами<span>. Серия карт могла быть заменена, и смена узора не требовала изменений в механике станка. Это было важной вехой в истории программирования.</span>
................................................