Var
i,a:integer;
b,c:real;
Begin
read(a);
for i:=1 to a do begin
read(c);
b:=b+c;
end;
writeln(c/a);
end.
Var n:integer;
procedure del(x:integer);
var d:integer;
begin
d:=2;
if(x>1)then begin
while x mod d<>0 do d:=d+1;
if(x div d >1)then write(d,'*')
else write(d);
del(x div d)
end
else exit;
end;
begin
read(n);
write(n, ' = ');
if(n<2) then write(n)
else del(n);
end.
<span>Типы бронирования номеров, особенности его подтверждения и аннуляции. Каналы получения заявок на него. Продвижение гостиничных услуг через туроператоров и турагентств. Современные информационные технологии, используемые в работе службы бронирования отеля.</span>
Xxx.pptx
или
xxx.ppt
где xxx- название файла
1) именительного падежа,единственного числа.
2)<span>следовательно, число не оканчивается на 0</span>