Таблица значений переменных
t 1 2 3 4 5 6 7 8 9 10
n 1 2 4 8 16 32 64 128 256 512 1024
Паскаль:
var t,n:integer;
begin
n:=1;
for t:=1 to 10 do n:=n*2;
writeln('N=',n)
<span>end.</span>
1) Лицензионное ПО (стоит деньгу, но большинство такого ПО взламывается по мере выхода, хоть это и наказуемо)
2) Свободное ПО (ПО распространяемой бесплатно или условно бесплатно)
Const n=6;
var x:array[1..n] of integer=(-1, 1, 2, -2, -3, 3);
y,z:array[1..n] of integer;
i,i1,i2:integer;
begin
for i:=1 to n do write(x[i]:3);
writeln;
i1:=0; i2:=0;
for i:=1 to n do
if x[i]>0 then begin i1:=i1+1; y[i1]:=x[i]; end
else if x[i]<0 then begin i2:=i2+1; z[i2]:=x[i]; end;
writeln(' Y: Z:');
for i:=1 to n do
if (i1>=i)and(i2>=i)
then writeln(y[i]:3,z[i]:4)
else if i1>=i then writeln(y[i]:3)
else if i2>=i then writeln(z[i]:7);
end.
Результат:
-1 1 2 -2 -3 3
Y: Z:
1 -1
2 -2
3 -3
Все открывается..... Презентация выбор профессии.
В паскале попробывал все получилось)
var
a,b,c,e:integer;
begin
read(a);
c:=0;
for e:=1 to a
do
begin
read(b);
if b mod 10=3
then
c:=c+1;
end;
write(c);
end.