1)var i,n:integer;x,p:real;
begin
readln(n,x);
p:=1;
for i:= 1 to n do
p:=p*x;
write(p);
readln
end.
2)var x:integer;
begin
readln(x);
if x < 18 then
write('да')
else
write('нет');
readln
end.
1) Клавиатура, микрофон, сканер
6) сканер
7) винчестер
8 )принтер, монитор,колонки
10) клавиатура
6) Выбираем наборы символов, не содержащие повторений. Таких наборов 4
8) (A & 0)\/(0 & B) & (C \/ 1) ⇒ 0 \/ 0 & 1 ⇒ 0 \/ 0 ⇒ 0
10) выполнение задания показано в прилагаемом файле