program vld;
var
factorial: longint;
n, a: byte;
begin
write('n = '); readln(n);
factorial := 1;
for a:=2 to n do
factorial := factorial * a;
writeln('n! = ', factorial);
readln;
end.
a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');
Мультимедиа или мультимедиа контейнеринг - название данной технологии
1)а(абслолютный адрез еще обозначается таким знаком $)
2)в
3)б
4)в
5)б
6)а
7)в
8)б
9)д
10)г
11)б
12)а
13)а
14)б
15)б
16)в
17)а
18)а