Var x,a,b,c,d:real;
begin
writeln('Введите число: '); read(x);
a:=sqr(x);
writeln ('Квадрат этого числа = ',a);
b:=sqrt(x);
writeln ('Корень квадратный = ',b);
c:=cos(x);
d:=sin(x);
writeln ('Синус = ', c, ' | Косинус = ',d);
<span>end.</span>
Если нам важен порядок, мы используем размещения.
Размещениями из n элементов по m (мест) называются такие выборки, которые имея по m элементов, выбранных из числа данных n элементов, отличаются одна от другой либо составом элементов, либо порядком их расположения.
Заведи массив и проверяй его if a[I] <> 0 then s:=s+1 else s:=s-1;
Program znanija;
Var a : Integer;
Begin
Readln(a);
Case A of
1,3,5,7,8,10,12: Writeln('31');
11,4,6,9 : Writeln('30');
2 : Writeln('29');
else Writeln('0')
end;
<span>end.</span>
Надеюсь понял
число записывается с конца